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ПРЕДИСЛОВИЕ 
К РУССКОМУ 
ИЗДАНИЮ 


Большой опыт эксплуатации электронных вычисли¬ 
тельных машин показал, что для их успешного применения необходи¬ 
ма система языков, обеспечивающая запись алгоритмов решения ши¬ 
рокого класса задач. 

В разработке такой системы языков наметилось три тенденции. Сто¬ 
ронники первой считают, что основу системы должен составлять язык 
с тщательно отобранным и сравнительно небольшим набором объектов 
и операций, допускающий возможности расширения и имеющий стро¬ 
го формализованные синтаксис и семантику. В этом случае любая язы¬ 
ковая система, ориентированная на решение некоторого класса задач, 
должна представлять собой надстройку над базовым языком, образован¬ 
ную средствами языка 

Сторонники второй тенденции считают, что должна существовать 
система языков специализированного и общего назначения. Пользова¬ 
тели при написании сложных программ выбирают те языки, на которых 
удобнее писать их отдельные части. В процессе трансляции программа, 
написанная на различных языках, собирается в единую программу на 
внутреннем языке машины. 

Наконец, сторонники третьей тенденции пытаются создать единый 
язык, который обладал бы большим запасом конкретных изобрази¬ 
тельных средств, обеспечивающих описание всех основных операций 
и объектов, употребляемых в задачах сегодняшнего дня. 

Создатели языка ПЛ/1 — сотрудники фирмы IBM и Ассоциации 
пользователей машинами IBM — убежденные сторонники третьей тен¬ 
денции. С момента своего возникновения язык претерпел большие изме¬ 
нения. Эти изменения были вызваны как опытом применения языка и 
создания трансляторов, так и ожесточенной критикой его противников. 
К настоящему времени язык стабилизировался и приобретает все боль¬ 
шую популярность. 
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Язык ПЛ/1 появился после создания целой группы весьма совер¬ 
шенных языков и, конечно, они оказали на него большое влияние. Но 
наряду с уже сложившимися идеями и понятиями ПЛ/1 вобрал в себя 
новые, такие, как привлечение широкого набора типов данных и созда¬ 
ние из них сложных структур, организация программной реакции на 
прерывания, возможность организации параллельных вычислений, 
преобразование программ в процессе трансляции и т. п. Эти особен¬ 
ности ПЛ/1 в сочетании с весьма совершенными трансляторами обеспе¬ 
чивают большие возможности и удобства написания программ для 
решения широкого класса задач, включая программы, работающие 
в реальном масштабе времени. 

Книга представляет собой перевод руководства по программиро¬ 
ванию на ПЛ/1. В связи с тем что язык включен в математическое обес¬ 
печение ЕС ЭВМ и область его применения очень широка, книга 
Р. Скотта и Н. Сондака представляет интерес для круга специалистов, 
связанных с применением вычислительной техники. 


Э. А. ТРАХТЕНГЕРЦ 



ПРЕДИСЛОВИЕ 


Задача книги — облегчить обучение программирова¬ 
нию на языке ПЛ/1. Получивший широкое распространение язык про¬ 
граммирования Фортран IV слишком ограничен и во многих случаях 
недостаточно удобен. Кроме того, при обучении технике программиро¬ 
вания наряду со стандартными упражнениями на применение числен¬ 
ных методов следует привлекать задачи на обработку текстов, списко¬ 
вых структур и операции над различными множествами символов. Для 
ясного понимания потенциальных возможностей вычислительных си¬ 
стем необходимо хорошо представлять себе методы машинной обработки 
символьной информации. Фортран не только затрудняет понимание 
этого аспекта отработки информации. Подчеркивая способность вычис¬ 
лительных машин быть только «гигантскими арифмометрами» и обра¬ 
зуя вычислительный барьер на пути выражения рекурсивных зависи¬ 
мостей, он значительно ограничивает возможность применения ЭВМ. 

Авторы настоящей книги давно поняли, что преподавание курса 
программирования в Вустерском Политехническом институте значи¬ 
тельно улучшилось бы, если бы при этом можно было пользоваться язы¬ 
ком, более развитым, чем Фортран. И когда фирма IBM начала вводить 
язык программирования ПЛ/1 для системы OS 360, этот язык привлек 
внимание авторов. Хотя мы были обескуражены трудностями, столь 
обычными на первоначальных стадиях работы с новым языком, он по¬ 
казался нам очень интересным с теоретической точки зрения. 

Самым серьезным камнем преткновения в обучении новому языку 
было отсутствие учебных пособий. 

Руководства составлялись и разрабатывались для других целей 
и не могли служить учебными пособиями. Одна из причин относительно 
медленного введения ПЛ/1 в программы высшей школы, несомненно, 
заключается в отсутствии подходящих учебников, снабженных хоро¬ 
шими примерами. Необходимость создания такого руководства и при¬ 
вела к написанию курса «ПЛ/1 для программистов». 
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Настоящая книга учитывает как требования учебных программ по 
современному программированию, так и нужды большого числа про¬ 
фессиональных программистов и создателей вычислительных систем. 

В главе 1 излагается краткая история вычислительной техники и 
возникновения языка ПЛ/1. 

В главе 2 дается краткое описание созданных до ПЛ/1 языков про¬ 
граммирования. Это поможет читателю начать работать с новым язы¬ 
ком. Глава построена так, чтобы после ее проработки студенты могли 
начать писать содержательные программы на ПЛ/1. Возможность напи¬ 
сания программ на такой ранней стадии обучения — лучшее доказа¬ 
тельство того, что языком ПЛ/1 довольно легко овладеть. 

В главах 3—6 в значительной мере представлен синтаксис языка 
ПЛ/1. Эти главы снабжены необходимыми иллюстрациями и примера¬ 
ми с тем, чтобы читатель мог сразу же уловить многосторонние воз¬ 
можности языка. 

При создании книги особенно большое внимание уделялось отбору 
примеров и иллюстраций, которые подчеркивают основные характе¬ 
ристики языка. 

Авторы старались отобрать по возможности «долговечный» материал 
и избегать примеров, которые представляют интерес только для неболь¬ 
шой группы пользователей. В главе 7 даются наиболее сложные харак¬ 
теристики ПЛ/1. 

Все программы, приведенные в книге, опробовались на системе 
ІВМ-360 (модель 40), а примеры отбирались в соответствии с практи¬ 
ческими задачами по программированию. 


Вустер, Массачусетс 
Август 1969 е. 


А СКОТТ, Н. СОНДАК 



Глава 1 


ПОЧЕМУ ПЛ/1? 


1.1. ВВЕДЕНИЕ 

Вычислительная работа, обеспечивающая деятельность 
человека, прошла эволюцию от счета при помощи пальцев руки до 
применения гигантских электронных систем по обработке данных. Боль¬ 
шинство средств и усилий в области вычислительной техники сконцен¬ 
трировано сейчас на подготовке программ для решения практических 
задач. Язык ПЛ/1 создан для того, чтобы сделать программирование бо¬ 
лее легким, более эффективным и более многосторонним. В этой главе 
будет кратко показано, как развитие вычислительной техники и мате¬ 
матического обеспечения привело к созданию языка ПЛ/1 (Program¬ 
ming Language/One — язык программирования-один). 

1.2. КРАТКАЯ ИСТОРИЯ СОЗДАНИЯ 
ВЫЧИСЛИТЕЛЬНОЙ ТЕХНИКИ 

Во все века люди стремились к созданию механического устройства, 
которое облегчало бы мыслительные процессы. Еще до создания систе¬ 
мы чисел человек для облегчения счета прибегал к насечкам на костях, 
груде камней и собственным пальцам. Слово «digit»* — десятичная 
цифровая система—исторически уходит корнями в использование паль¬ 
цев для счета. Такая примитивная «вычислительная машина» («digi¬ 
tal computer») широко применима й в настоящее время. В зависимости 
от «решающих» устройств возникают и некоторые другие основы для 
систем счета. Например, некоторые примитивные племена, которые при 
счете пользуются суставами пальцев, фактически применяют троичную 
систему счисления (по числу суставов). 


* В переводе означает «единица», «палец». — Примеч. пер. 
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Своеобразные вычислительные устройства были найдены в руинах 
Древней Греции, а само слово «calculus» (вычислять) относится к табу- 
ляционной системе, принятой в Древнем Риме. Канцелярские счеты, 
впервые появившиеся на Востоке, представляют собой первое меха¬ 
ническое вычислительное устройство. До сих пор с их помощью вы¬ 
полняются многие канцелярские операции. 

К началу XVII в. было изобретено несколько устройств, помогаю¬ 
щих счету. Одно из первых — палочки или «кости» Нэпера (1617 г.), 
которые позволяли проводить умножение. Примерно в то же время 
несколькими людьми одновременно были созданы различные варианты 
устройства, известного сейчас как логарифмическая линейка. 

Первой по-настоящему счетной машиной можно назвать машину 
Паскаля, изобретенную в 1642 г..когда он был еще подростком. Это 
.устройство с зубчатой передачей было построено им для помощи отцу, 
правительственному ревизору финансов. В последующие годы Лейбниц 
. и другие усовершенствовав устройство Паскаля и создали прообраз 
современных настольных вычислительных машин. 

Наиболее смелый и блестящий шаг на пути создания современных 
компьютеров был сделан англичанином Чарльзом Бэббиджем в период 
между 1820 и 1856 г. Он поставил перед собой цель сконструировать 
машину, которая могла бы полностью решать сложные математи¬ 
ческие задачи, производя необходимые арифметические действия, 
хранить полученные результаты, выполнять набор команд и даже печа¬ 
тать ответ. Ради этой идеи Бэббидж отказался от должности профессо¬ 
ра на кафедре математики Кембриджского университета. Он вклады¬ 
вал собственные средства в создание различных автоматов. (Эти сред¬ 
ства он, в конце концов, потерял.) Бэббидж действительно создал рабо¬ 
чую модель части одной из машин и получил субсидию от Британского 
правительства для конструирования «дифференцирующей машины», 
которая оперировала бы 26-значными цифрами и печатала приращения 
до шестого Порядка. Потратив почти десять лет, Бэббидж не смог по¬ 
лучить реальных результатов, и субсидия правительства была аннули¬ 
рована. 

Затем Бэббидж начал работать над «аналитической машиной», ко¬ 
торая должна была автоматически проводить серию арифметических 
действий в определенной последовательности. Но и ее он не смог до¬ 
вести до конца. Неудачи были вызваны не ошибками в конструкции, а 
несоответствием возможностей техники того времени замыслам Бэб¬ 
биджа. Основные элементы, предложенные Бэббиджем, такие, как дан¬ 
ные и команды, вводимые в машину на перфокартах, условная передача 
управления, основанная на полученных результатах, модификация 
команд самой машиной, были настолько хорошо разработаны, что когда 
была сконструирована первая электронная вычислительная машина, 
эти элементы были почти теми же, что и в «аналитической машине», 
сконструированной Бэббиджем более ста лет тому назад. 

В 1875 г. американец Стефен Болдуин получил патент на создание 
устройства, с помощью которого можно было выполнять четыре арифме¬ 
тических действия, не перенастраивая его. К началу второй мировой 
войны Марчант, Барроуз и другие предложили ручные и автоматиче- 
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ские настольные вычислительные машины, которые по структуре на¬ 
поминали устройства, существующие в настоящее время. Умножение 
десятизначных чисел производилось за 6—10 с. 

Примерно в то же время, что и Болдуин, Герман Холлерит в США 
изобрел машину, работающую с применением перфокарт. Он сконструи¬ 
ровал и получил патент на запоминающее и анализирующее устройство 
для обработки демографических данных. Данные наносились на пер¬ 
фокарты. Перепись 1890 г. обрабатывалась при помощи табуляторов 
Холлерита. Это дало выигрыш во времени на одну треть по сравнению 
с обработкой данных предыдущей переписи, и результаты обработки 
были более точными. 

В 1911 г. была создана фирма «Computing and Tabulating Recor¬ 
ding Company», которая позже стала называться «International Busi¬ 
ness Machine Corporation» (IBM). Эта фирма взяла в свои руки конт¬ 
роль над основными патентами, полученными Холлеритом на перфо¬ 
рирующие машины и другие устройства. 

К 30-м годам стала очевидна связь между релейными схемами и бу¬ 
левой алгеброй (алгеброй логики). Из электромагнитных реле создавали 
логические схемы для машин, оперирующих картами. Эти машины 
могли выполнять несколько довольно сложных арифметических дей¬ 
ствий. 

Первым прямым наследником «аналитической машины» Бэббиджа 
стал автоматический последовательный управляемый вычислитель 
фирмы ГВМ. Он был создан фирмой в 1944 г. совместное Гарвардским 
университетом. Машина была очень громоздкой, весила почти 5 тонн. 
В 1948 г. в Долгрене (штат Виргиния) была создана улучшенная 
модель этой машины. 

Во время второй мировой войны теория электронных схем получи¬ 
ла дальнейшее развитие. Необходимость переработки большого коли¬ 
чества данных привела к созданию первой электронной счетно-решаю¬ 
щей машины Electronic Numerical Integrator and Calculator (ENIAQ. 
Она состояла из тридцати блоков, занимающих свыше 15 000 квад¬ 
ратных футов, и весила более 30 тонн. В ее конструкции использова¬ 
лось почти 19 000 вакуумных ламп. Она могла выполнять 5000 опера¬ 
ций в секунду, а ее оперативная память позволяла хранить 20 десяти¬ 
значных цифр. 

Машина ENIAC -была создана под руководством доктора Джона 
В. Мочли из Пенсильванского университета и Дж. Преспера Эккерта, 
аспиранта этого университета. Первой задачей, решенной на ENIAC, 
была задача по ядерной физике. Общее время ее решения составило две 
недели, хотя сами вычисления заняли всего два часа. Было подсчитано, 
что если бы при решении применялись старые методы, то потребовалось 
бы не менее 100 человеко-лет. 

Вслед за первой электронной вычислительной машиной общего на¬ 
значения появилось несколько других. Следующая машина, которую 
сконструировали Мочли и Эккерт (Binary Automatic Computer), была 
выполнена только в одном экземпляре. Несколько модификаций ее 
было создано другими различными фирмами. 
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Сейчас кажется странным, что в то время делались предсказания 
о необходимости для США иметь только девять машин подобного типа. 
Подсчитано, что к семидесятым годам этого столетия в США будет ра¬ 
ботать не менее 80 000 вычислительных машин, а оперировать они бу¬ 
дут .порядками величин, гораздо большими, чем первая машина ENIAC. 

Логические схемы вычислительных машин были разработаны в 
койце 40-х годов Джоном фон Нейманом, Германом Гольдстайном 
и А. В. Бёрксом. Материал о них был опубликован в серии статей, ны- 
неГшироко известных. Основная идея машины фон Неймана заключа¬ 
лась в том, что команды, так же как и данные, могут храниться в маши¬ 
не в цифровой форме и подвергаться одинаковым операциям модифи¬ 
кации и обработки. Его машина была названа программно-управляе¬ 
мой счетно-решающей машиной. Для упрощения логических схем 
машин фон Нейман предлагал двоичную систему счисления. 

В 1954 г. фирма IBM выпустила вычислительную машину модели 
650. Это была первая программно-управляемая машина на вакуумных 
лампах и с запоминающим устройством на магнитном барабане. Вскоре 
были введены в эксплуатацию около 1000 машин этой модели. Библио¬ 
тека программ к этой машине была самой дорогостоящей из всех, создан¬ 
ных ранее. Большая практическая ценность этих электронных вычис¬ 
лительных машин превратила их из лабораторной диковины в рабочий 
инструмент. Программы для модели 650 записывались в кодах команд 
машины. Запись была очень трудоемким и утомительным делом. Часто 
допускались ошибки. Природа программ была идеальна для того, чтобы 
их писали сами машины. Высказывалась мысль о том, что если бы про¬ 
граммы могла записывать машина, то эта тяжелая работа была бы зна¬ 
чительно облегчена. Появилась идея о создании языков высокого уров¬ 
ня, на которых можно было бы писать программы для электронных 
вычислительных машин. Предполагалось, что машина должна была 
сама создавать программы, однако технические возможности ЭВМ еще 
не позволяли решить эту задачу. 

Примерно к тому времени, когда ЭВМ модели 650 достигла наиболь¬ 
шей популярности, относится создание трансляторов. 

Конструкторы машин видели огромные возможности в повышении 
быстродействия и надежности машин за счет замены вакуумных ламп 
полупроводниками. Примерно к тому же времени относится создание 
элементов быстродействующей ферритовой памяти. Эти элементы были 
более компактными и надежными и почти на три порядка более быстро¬ 
действующими, чем запоминающие устройства на магнитных бараба¬ 
нах, применяемые в ЭВМ модели 650. Первой машиной, работающей 
на полупроводниках с ферритовой памятью, была модель RCA-501, 
поступившая на рынок в 1959 г. Тогда же было введено в эксплуатацию 
около 100 таких машин и некоторые из них работают до настоящего 
времени. Эта модель ЭВМ представляла «второе поколение» вычисли¬ 
тельной техники. 

Темп развития электронных вычислительных машин все возрастал. 
Новые поколения машин появлялись каждые пять лет (нормальным счи¬ 
тается двадцати летний цикл). В течение нескольких лет машины пер¬ 
вого поколения были почти полностью заменены машинами второго 
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поколения, обладающими большими возможностями и мощностями. 
В эксплуатацию вводились тысячи новых вычислительных машин. 

Подчиняясь ускоряющемуся темпу развития вычислительной техни¬ 
ки, фирма IBM объявила в 1964 г. о запуске в серию машин ІВМ-360. 
Это третье поколение машин родилось примерно через пять лет после 
создания машин на полупроводниках. Основной чертой вычислительных 
машин третьего поколения, которые стали выпускать все ведущие фир¬ 
мы, была их способность решать задачи, о возможности решения кото¬ 
рых даже не подозревали каких-нибудь десять лет назад. Успех был 
обусловлен заменой полупроводников интегрированными схемами, 
созданием сверхбыстродействующих запоминающих устройств, систе¬ 
мы модульных блоков и более мощных средств ввода-вывода. 

На ранних ступенях развития электронной вычислительной техни¬ 
ки машины были ориентированы на пакетную обработку данных, т. е. 
на последовательное решение задач. По мере возрастания мощностей 
машин и требований к ним становилось ясно, что для большинства 
пользователей такой метод обработки данных не эффективен. Наилуч¬ 
шим способом повышения эффективности работы вычислительных цент¬ 
ров оказалось совмещение во времени вычислений с вводом и выводом 
данных. Обработка данных на удаленных вычислительных центрах 
стала называться обработкой данных на расстоянии, а эксплуатация 
вычислительной машины многими пользователями, одновременно реша¬ 
ющими различные задачи,—системой с разделением времени. К сере¬ 
дине 60-х годов технология соединения внешних устройств с машиной 
достигла той стадии, когда обработка данных на расстоянии большими 
вычислительными системами стала обычной. Ожидают, что к середине 
70-х годов как системы с разделением времени, так и обработка 
данных на расстоянии будут стандартными методами для проведения 
вычислительных работ. Обработка данных на расстоянии представляет 
собой ввод данных с отдельных внешних устройств через каналы связи 
(например, телефонные) и вывод данных непосредственно на отдален¬ 
ные внешние устройства. 

История последних лет знает только одно столь же мощное дости¬ 
жение человеческого разума, которое некоторым образом способство¬ 
вало созданию электронных вычислительных машин — это атомная 
энергия. Оба эти изобретения преобразили наш мир. 

1.3. АРХИТЕКТУРА ВЫЧИСЛИТЕЛЬНОЙ МАШИНЫ 

Архитектура вычислительной машины — далеко не последний во¬ 
прос в инженерном проекте. Он важен также для системного алгорит- 
миста и программиста, поскольку во многих случаях действительное 
решение вычислительной задачи определяется архитектурой машины 
и ресурсами, доступными программисту. В вычислительную машину 
данные вводятся в форме цифр и символов. Эти данные обрабатываются 
и результаты выдаются либо на печатающее устройство в форме, удоб¬ 
ной для прочтения человеком, либо на внешнее запоминающее устрой¬ 
ство в форме, удобной для восприятия машиной. Эти основные операции 


и диктуют архитектуру машины. Главные компоненты простейшей вы¬ 
числительной машины следующие: 

1. Устройства ввода-вывода (УВВ). 

2. Центральный процессор (ЦП). 

3. Память. 

С помощью устройств ввода-вывода осуществляется передача ин¬ 
формации в центральный процессор и получение информации из него. 

Данные для ввода в машину готовятся на устройствах подготовки 
данных. С некоторых устройств (например, телетайпов) они вводятся 
в машину непосредственно, с других (типа перфораторов) — с помощью 
перфокарт, перфолент или в некоторых случаях с помощью специаль¬ 
ных преобразователей, Преобразующих аналоговые сигналы в цифровой 
код. Ввод может также производиться с других вычислительных ма- 
ійин с помощью магнитных лент или магнитных дисков. 

Подготовка информации с помощью устройств типа телетайпа или 
перфоратора — чрезвычайно трудоемкое и очень дорогостоящее де¬ 
ло. Даже опытный перфораторщик может обработать 100—150 восьми¬ 
десятиколонных перфокарт в час. Выразим скорость подготовки ин¬ 
формации и ввода ее в символах в секунду. Перфораторщик наносит 
информацию на перфокарты со скоростью 3 символа в секунду. Стан¬ 
дартное устройство чтения с перфокарт может обрабатывать около 
1000 карт в минуту, или приблизительно 1300 символов в секунду. 
Данные с магнитных лент могут считываться или записываться на маг¬ 
нитные ленты со скоростью от 60 000 до 120 000 символов в секунду. 
С магнитных дисков и магнитных барабанов информация считывается 
со скоростью от 150 000 до 300 000 символов в секунду. Цифры, кото¬ 
рые здесь приводятся, весьма приблизительны, так как сейчас сущест¬ 
вует много устройств в каждом из перечисленных типов, которые ра¬ 
ботают с гораздо большей скоростью чем, указано в этом параграфе. 

Устройства вывода могут представлять информацию либо в печат¬ 
ной форме, либо в форме, позволяющей вводить информацию в другую 
вычислительную машину. Коммерческие печатающие устройства 
в вычислительных системах средней мощности могут печатать свыше 
1000 строк в минуту, или около 2000 символов в секунду. Скорость 
вывода информации во внутреннем машинном коде производителя, как 
правило, та же, что и скорость ввода. Интересным устройством вывода 
является дисплей, который иногда называют катодно-лучевой трубкой. 
В некоторые типы дисплеев информация может быть введена с помощью 
светового пера и в виде, аналогичном тому, который используют в гра- 
фикопостроителях. На таких дисплеях могут воспроизводиться гра¬ 
фики и рисунки, созданные с помощью электронной вычислительной 
машины, в некоторых проектах — словесный вывод и слуховой ввод 
информации. Но в настоящее время такие устройства единичны и очень 
дороги. 

Важно знать, какой объем информации может храниться на маг¬ 
нитных лентах, дисках и барабанах. Плотность записи на стандартной 
магнитной ленте длиной в 2400 футов составляет 800 бит на дюйм. 
Данные обычно записываются на 2200 футах бобины, теоретически на 
одну бобину может быть записано примерно 21 миллион символов. 
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Практически же на бобину записывают только около 9 миллионов сим¬ 
волов, так как на ленте между записями должны быть оставлены пус¬ 
тые промежутки, на которые информация заноситься не может. Обыч¬ 
ный объем памяти магнитных дисков колеблется от 7 до 14 миллионов 
символов; объем памяти магнитных барабанов — примерно от 2 до 
200 миллионов символов. 

Центральный процессор состоит из двух функциональных частей. 
Одна из них выполняет арифметические и логические операции, другая 
осуществляет управление и определяет последовательность выполнения 
команд. 

Поскольку информация передается в центральный процессор в фор¬ 
ме последовательностей дискретных импульсов, процессор обладает 
сверхвысоким быстродействием. 

Центральные процессоры в более ранних устройствах выполняли 
команды и арифметические действия за одну миллисекунду (одну ты¬ 
сячную долю секунды). Современные процессоры выполняют действия 
за микросекунду (одну миллионную долю секунды) и наносекунду (одну 
миллиардную долю секунды). Существуют экспериментальные про¬ 
цессоры, которые выполняют операции за пикосекунду (одну триллион- 
ную долю секунды). Пределом скорости работы электронных схем 
сейчас становится скорость света (примерно девять дюймов в наносе¬ 
кунду). Это означает, что элементы электронных схем должны распола¬ 
гаться очень близко друг к другу, иначе будет теряться быстродействие. 

Разработка электронных вычислительных устройств становится 
сложной проблемой. Скорость передачи информации в ЦП может быть 
в тысячу раз большей, чем скорость передачи информации с устройств 
ввода-вывода. Для того чтобы быстродействующий центральный про¬ 
цессор мог работать с полной нагрузкой, необходимо осуществлять опе¬ 
рации ввода-вывода. Одновременное выполнение нескольких работ 
называется мультипроцессорной работой*. Одновременное выполне¬ 
ние нескольких программ называется мультипрограммированием. 
Одной из особенностей ЦП третьего поколения является возможность 
мультипрограммирования. 

Магнитная память представляет собой хранилище команд данных, 
доступных быстродействующему центральному процессору. Информа¬ 
ция может быть введена в память и считана из нее за микро- или нано¬ 
секунды. Обычно, хотя и не всегда, в любую ячейку памяти можно об¬ 
ратиться за одно и то же время. Быстродействующая память современ¬ 
ной вычислительной машины может хранить примерно от нескольких 
тысяч до миллиона символов. Из-за технологических сложностей про¬ 
изводства быстродействующая память, как правило, —■ самая дорого¬ 
стоящая часть вычислительной системы. Написание программы, кото- 


* Мультипроцессорной вычислительной системой называется система, со¬ 
стоящая из нескольких вычислительных процессоров, имеющих возможность 
работы с общей частью памяти. Работа этих процессоров по одновременному 
выполнению нескольких программ планируется специальным устройством или 
программой. См., например. Мультипроцессорные вычислительные системы. 
Под ред. А. Я Хетагурова. М., «Энергия», 1971. — Примеч. пер. 



рая могла бы поместиться в доступной памяти, часто оказывается про¬ 
блемой, с которой постоянно сталкиваются ученые, работающие в об¬ 
ласти вычислительной техники. Большинство усилий, направленных 
на экономию памяти, приводит к увеличению времени ее работы. 

1.4. ИСТОРИЯ ПРОГРАММИРОВАНИЯ 

Алгоритмы. Электронная вычислительная машина предназначена 
для решения задач. Она может выполнить это только в том случае, 
когда в нее вводится совокупность точно сформулированных правил, 
которые позволяют решать данную задачу. В самом общем смысле ал¬ 
горитмом можно назвать любое описание процесса решения задачи. 
Для специалиста по вычислительной технике алгоритм — это точное 
описание вычислительного процесса или процесса обработки данных. 
При использовании соответствующих данных этот процесс приводит 
к определенному результату за конечное время*. (Набор команд вы¬ 
числительной машины, описывающий процесс выполнения алгоритма, 
называется программой.) Алгоритмы, которые обычно описываются 
в терминах вычислительных и логических операций или передач управ¬ 
ления, фактически образуют последовательность преобразований вход¬ 
ных данных. Например, один из алгоритмов для решения задачи с по¬ 
мощью ЭВМ может состоять из пяти шагов: 

1) формулировка задачи, которая должна быть решена; 

2) формулирование логической или математической модели дан¬ 
ной задачи; 

3) выражение этой модели в терминах определенной программы; 

4) выполнение программы на ЭВМ; 

5) проверка полученных результатов для того, чтобы убедиться в 
правильности решения. 

Некоторые из этих шагов могут показаться очень простыми, осо¬ 
бенно первый. И действительно, когда дело касается естественных наук, 
формулировка задачи, как правило, не представляет трудности. Фор¬ 
мулировка и описание задачи, касающейся других сфер человеческой 
деятельности, — часто довольно трудное дело. На ЭВМ нельзя решить 
задачу, если проведен поверхностный анализ и неряшливо определены 
требования. В отличие от человека вычислительная машина сама не 
может исправить ошибку, если только это не заложено в ее программе. 
Для успешного решения задачи машиной все шаги алгоритма должны 
быть очень тщательно разработаны. 

Составление алгоритма представляет собой творческий процесс. 
Так же как и произведения искусства, алгоритмы могут быть плохими 
и хорошими. Уменье составлять алгоритмы приходит с опытом. Ал¬ 
горитмы, которые даны в настоящей книге в качестве примеров и 
упражнений, могут служить базой для их оценки. Просмотрите их. 
Обратите внимание на их массовость, результативность и детерминиро- 


* Точное определение понятия алгоритма можно найти, например, в книгах: 
Айзерман М. А. [и др.]. Логика, автоматы, алгоритмы. М., Физматгиз, 
1963: Криницкий Н. А. [и др.]. Программирование. М., Физматгиз, 
іѲбЗ. — Примеч.. пер. 




ванность. Это основные черты алгоритма. Массовость говорит о разно¬ 
образии входных данных, которые могут быть обработаны. Результа¬ 
тивность означает, что алгоритм дает результаты через некоторое ко¬ 
нечное число шагов. Детерминированность показывает, что алгоритм 
точен и не допускает двусмысленности. 

Составление алгоритмов — основа программирования. В настоящее 
время ведутся широкие исследования в области анализа основных 
структур эффективных алгоритмов. Исследования показывают, что 
фаза проверки — самая решающая и именно на эту фазу нужно 
обращать особое внимание. Это касается не только начинающих про¬ 
граммистов, но и профессионалов. Всякий раз, когда это возможно, 
проверяйте ввод, анализ и результаты. Как можно меньше полагайтесь 
на случай. 

Машинный язык. Для выполнения алгоритма на вычислительной 
машине требуется программа. ЭВМ воспринимает задачу только в 
виде особого набора команд. Этот набор команд называется машинным 
языком. Любой алгоритм, который обрабатывается на электронной 
вычислительной машине, должен быть выражен на машинном языке 
данной ЭВМ. Машинная команда для ЭВМ обычно состоит из кода опе¬ 
рации, адресов данных, хранящихся в памяти машины, и кода длины 
команды (для машин с переменной длиной слова). Фактический формат 
команды некоторых ЭВМ может быть очень сложным. Обычно считают, 
что даже для опытного программиста нужно несколько месяцев, чтобы 
овладеть машинным языком. Машинный язык содержит много специфи¬ 
ческих элементов и любая программа нормального размера состоит из 
большого числа отдельных команд. Проверка программы в связи с этим 
очень трудна. При этом совершенно обязательно точное знание опера¬ 
ций, выполняемых электронной вычислительной машиной. Вследствие 
всего этого создание программ, написанных на машинном языке, тре¬ 
бует много времени программиста, а отладка программы — много ма¬ 
шинного времени. Не имея опыта в написании программ на машинном 
языке, невозможно даже представить себе, насколько трудоемок такой 
способ коммуникации человека и машины. Для облегчения этой зада¬ 
чи программисты стремились улучшить методы работы. Первым таким 
улучшением было создание мнемокодов. 

Мнемокоды. Мнемокод должен быть по структуре достаточно бли¬ 
зок к основному набору команд машины. Коды операций записываются 
в виде мнемонических сокращений, а адреса данных и команд могут 
быть выражены в форме символов. Запоминать и применять мнемо¬ 
нические коды команд легче, чем собственно машинные коды. Умень¬ 
шается также количество описок при кодировании. В мнемокоде поль¬ 
зуются символьной адресацией в отличие от цифрового кодирования 
в машинных языках, поэтому мнемокод значительно облегчает работу 
программиста. 

Мнемокодная программа наносится на перфокарты или перфоленты 
и вводится в машину. Там она обрабатывается с помощью ассемблера. 
Ассемблер — это программа, которая воспринимает входную инфор¬ 
мацию, записанную на мнемокоде, и переводит ее в программу, запи¬ 
санную на машинном языке. 
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Мнемокоды имеются почти для всех вычислительных машин и до 
сих пор широко применяются. Они позволяют осуществлять тесную 
связь программиста с машиной и могут давать очень эффективные ма¬ 
шинные программы. Возможности ассемблеров были расширены вве¬ 
дением макрокоманд-(макросов). 

Макросы — это особые блоки команд, которые могут быть встав¬ 
лены в программу для выполнения определенных операций. Это осо¬ 
бенно ценно при выполнении операций ввода-вывода, когда часто по¬ 
вторяются одни и те же наборы команд. 

В качестве примера программирования на машинном языке и мне¬ 
мокоде рассмотрим программу, написанную для вычислительных ма¬ 
шин ІВМ-1620. Эта программа выполняет довольно простую задачу. Она 
будет считывать число N с перфокарты, затем считывать еще N чисел, 
складывать эти числа, умножит сумму на три и затем полученный ре¬ 
зультат отперфорирует на перфокарте в форме с плавающей точкой. 

INPUT DS3 80 02402 00080 

OUTPUT DAG 50. ANSWER = + . E + . 


MINUS 

THREE 

COUNT 

SUM 

START 


B 


G 


DAC ?0, 

DAC I.-. 

DC 8,30000006 
DC 2,01 
DC 2.0 
DC 8,0 
DC 2,0 
RNCD INPUT 
SF INPUT 
TF (PUNT. INPUT+1 

RNCD INPUT 
FADD SUM, INPUT+8 
SM (JOUNT, 1, 10 
CM COUNT, 0.10 
BNE A 

FMUL SUM,THREB 
BNF B, SUM 
TF OUTPUT+42. MINUS 

TNF OUTPUT+4 6, SUM 
BNF C, SUM-2 
TF OUTPUT+ 20, MINUS 
TNF OUTPUT + 38, SUM-2 
WACD OUTPUT 
CALL EXIT 
DEND START 


02483 00100 
02583 00060 
02643 00002 
02651 00008 
02653 00002 
02655 00002 
02663 00008 
02665 00002 
02666 36 02402 00500 
02678 32 02402 00000 
02690 26 02655 02403 
02702 36 02402 00500 
02714 01 02665 02411 
02726 12 02655 000—1 
02738 14 02665 000 — 0 
02750 47 027C2 01200 
02762 03 02665 02653 
02774 44 02798 02665 
02786 26 02525 02643 
02798 73 02529 02665 
02810 44 02834 02663 
02822 26 02503 02643 
02834 73 02521 02663 
02846 39 02483 00400 
02858 49 00769 00000 
02666 


Приведенная программа была отпечатана ассемблером во время 
трансляции программы в машинные команды. Слева дан образец про¬ 
граммы на мнемокоде, а справа — та же программа на машинном языке. 
Первая колонка в обеих частях обозначает ячейку памяти. В левой 
части адрес этой ячейки обозначен символически, в правой указан 
фактический адрес, определенный ассемблером. Команда FADD, SUM, 
INPUT +9 породила машинную команду 01 02665 02411, которая 
хранится в ячейке памяти с адресом 02714. Во время выполнения про¬ 
граммы эта команда складывает два числа с плавающей запятой. Пер¬ 
вое из этих чисел хранится в символической ячейке SUM, а другое — 
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в INPUT+9 (фактические адреса ячеек 02665 и 02411). Результат 
хранится в ячейке SUM (02665). 

Хотя мнемокод представляет собой шаг вперед по сравнению сма- 
шинным кодом, но он тоже страдает рядом недостатков. Самый серьез¬ 
ный недостаток заключается в том, что мнемокод, созданный для опре¬ 
деленной машины, пригоден только при работе с ней. Идеальным было 
бы такое положение, когда пользователь мог бы выполнить написан¬ 
ную программу на любой наиболее доступной и эффективной ЭВМ. 
К несчастью, программы, написанные на мнемокоде, применимы только 
к той машине, для которой они были созданы. Шагом на пути создания 
программ, не зависящих от определенной машины, было создание авто¬ 
кодов. 

Автокоды. Автокоды были задуманы как особый набор команд для 
выполнения специализированной задачи. Этот псевдонабор команд 
обычно использовался для решения научных и инженерных задач. 
Для научных вычислений типична задача: С = А-В. В мнемокоде для 
какой-нибудь вычислительной машины эта операция потребовала бы 
двух или более команд; в автокоде она могла быть закодирована как 
УМН А, В, С. Эта команда означала бы, что требуется умножить А на 
В и результат хранить в С. Один из наиболее известных систем авто¬ 
кодов является автокод Бэлл, разработанный Bell Telephone labora¬ 
tories в штате Нью-Джерси. Созданная там система может применяться 
на целом ряде вычислительных машин, и программы, написанные для 
одной машины, могут быть выполнены на другой. Автокоды все еще 
самое легкое средство понимания того, как функционирует вычисли¬ 
тельная машина, хотя их популярность последнее время падает из-за 
потери эффективности при выполнении работы. Поэтому, в то время 
как ассемблеры и трансляторы совершенствовались, уже прилагались 
усилия для создания более совершенного способа коммуникации 
с машиной посредством языков высокого уровня. 

1.5. АЛГОРИТМИЧЕСКИЕ ЯЗЫКИ 

Применение мнемокода и автокода имеет ряд недостатков: для на¬ 
писания программы любой степени сложности требуется большое чис¬ 
ло команд; на кодирование затрачивается длительное время; много 
машинного времени расходуется при отладке; трудно восстановить 
логику программы, если требуется провести модификацию или расши¬ 
рение первоначальной работы; программа, написанная для определен¬ 
ной машины, непригодна для работы на машине другой конструкции. 
Стремление преодолеть эти недостатки обусловило развитие нового под¬ 
хода к написанию программ и послужило стимулом к созданию языков 
высокого уровня. 

{^идеальному языку высокого уровня предъявляются следующие 
четыре основных требования. Он должен способствовать полному 
использованию мощности машины, быть близок к естественному язы¬ 
ку, на котором описывается задача, предоставлять возможность эко¬ 
номной записи задачи, позволять работать на любой из существующих 
электронных вычислительных машин. Первым достаточно удовлетво- 
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рительным языком высокого уровня был Фортран (сокращение от 
formula translator)*. Этот язык был создан для решения научных и 
инженерных задач, которые могут быть выражены непосредственно 
рядом арифметических и логических формул. Фортран имеет сейчас 
несколько вариантов и представляет собой очень мощный и хорошо 
развитый язык. 

Электронные вычислительные машины могут реализовывать про¬ 
граммы только на машинном языке. Поэтому любой язык высокого 
уровня должен обязательно переводиться на язык, доступный машине. 
Эта работа выполняется программой, которая называется транслято¬ 
ром. Транслятор сканирует один или несколько раз программу, напи¬ 
санную на языке высокого уровня, составляя окончательно программу 
на машинном языке, которая и выполняется на ЭВМ. Первоначальная 
программа, написанная на языке высокого уровня, называется исход¬ 
ной программой; окончательная программа, составленная на машин¬ 
ном языке, называется выходной (рабочей) программой. По существу, 
транслятор переводит исходные программы в выходные. Трансляторы 
_ж)гут быть двух типов. Транслятор первого типа полностью перера¬ 
батывает всю рабочую программу для ее последующей реализации. 
Транслятор второго типа переводит каждый оператор программы, на¬ 
писанный на языке высокого уровня, на машинный язык для немед¬ 
ленной реализации. Первый метод обеспечивает эффективный способ 
составления выходной программы. Второй позволяет проверять каж¬ 
дый оператор во время написания программы. Такой транслятор на¬ 
зывается интерпретатором**. 

Фортран, так же как и все другие языки программирования, со¬ 
стоит из символов своего алфавита, которые предназначены для напи¬ 
сания предложений, называемых операторами. Оператор на Фортране 
может: 

1) определять арифметические действия, которые необходимо вы¬ 
полнить; 

2) давать информацию для определения последовательности шагов, 
требующихся во время выполнения программы; 

3) указывать, какие операции ввода-вывода необходимы для ввода 
данных и воспроизведения ответов; 

4) выполнять административные функции, такие, как резервиро¬ 
вание памяти и формирование форматов данных при вводе-выводе. 

Эффективность любой системы определяется в процессе ее эксплу¬ 
атации, и, несмотря на некоторые недостатки, Фортран выполняет свою 
работу в высшей степени удовлетворительно. Трансляторы с Фортра¬ 
на существуют почти для всех вычислительных машин средней и боль¬ 
шой мощности***. Эти трансляторы различны по возможностям и сте¬ 
пени сложности, но с помощью даже самых простых трансляторов мож¬ 
но решать очень сложные научные и инженерные задачи. Специалисты 


* В переводе с английского означает «переводчик формул». — Примеч. пер. 

** В настоящее время интерпретаторы широко применяются для работѣ 
в диалоговом режиме. — Примеч. пер. 

*** В последнее время подобные трансляторы созданы для большинства 
мини- и даже некоторых микро-машин. — Примеч. пер. 




по вычислительной технике указывали на недостатки Фортрана еще на 
ранней стадии его применения. Ограничения Фортрана начинаются со 
строгих правил написания операторов и заканчиваются невозмож¬ 
ностью описания рекурсивных процессов*. Для преодоления этих труд¬ 
ностей и сближения структуры языка и описываемых им алгоритмов 
был создан язык программирования Алгол. Алгол впервые появился 
в Европе, но вскоре был принят как международный язык программи¬ 
рования. Основополагающим документом для Алгола была публикация 
Association of Computing Machinery**, названная Алгол-60. Алгол 
позволяет сжато выражать различные задачи, но широкие возможно¬ 
сти языка затрудняют его полную реализацию. 

Алгол обычно применяется как язык публикации для описания 
иллюстративных программ в некоторых научных и технических жур¬ 
налах***. Жаль, что когда Алгол возник, он не получил широкого 
применения. Это произошло главным образом потому, что состояние 
вычислительной техники в то время не способствовало принятию та¬ 
кого языка. 

Еще одним вариантом алгоритмического языка был MAD (Michigan 
Algorithmic Decoder), разработанный в Мичиганском университете. 
По структуре это язык близкий к Фортрану, но у него есть ряд пре¬ 
имуществ по сравнению с ранними диалектами этого языка. MAD не 
получил реального коммерческого признания, несмотря на присущие 
ему достоинства, 

1.6. ЯЗЫКИ ДЛЯ РЕШЕНИЯ 
ЭКОНОМИЧЕСКИХ ЗАДАЧ 

Широкое проникновение электронной вычислительной техники 
в экономику привело к тому, что в этой области стал необходим такой 
же анализ требований к программированию, какой раньше был сделан 
для решения научных задач. На начальных стадиях применения вы¬ 
числительной техники считали, что требования к решению экономичес¬ 
ких задач в корне отличаются от требований к решению научных задач. 
Файлы с записями экономических задач содержат сотни тысяч отдель¬ 
ных данных. Их нужно было проанализировать, протабулировать, сум- 


* В Фортране запрещено рекурсивное обращение к подпрограммам. Это за¬ 
прещение делает несколько менее удобным, но отнюдь не невозможным описание 
рекурсивных процессов. — Примеч. пер. 

** Есть русский перевод: Алгоритмический язык Алгол-60. Пересмотрен¬ 
ное сообщение. Перевод с английского под ред. Ершова А. П., Лавро¬ 
ва С. С., Ш у р а -Б у р а М. Р. М., «Мир», 1965. — Примеч. пер. 

*** В США до последнего времени Алгол-60 широко применялся главным 
образом как язык публикаций. Журнал «Communication of the АСМ» в каждом 
номере публикует алгоритмы на Алголе-60. Однако некоторые американские фир¬ 
мы в последнее время изменили свое отношение к Алголу настолько, что начали 
закладывать в аппаратуру вычислительных машин средства, обеспечивающие 
эффективную трансляцию программ, написанных на Алголе. В Европе Алгол 
как язык программирования применяется довольно широко (см., например. 
Harder Е. L. The Expanding World of Computers. Communication of the 
ACM, 1968, Na 4). — Примеч. пер. 
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мировать и разбить на определенные календарные сроки. Хотя слож¬ 
ность арифметических вычислений при решении экономических задач 
сравнительно невелика (с точки зрения программирования), требо¬ 
валось нечто более совершенное, чем мнемокод. 

Первым шагом к созданию более совершенных методов программи¬ 
рования для пользователей электронных вычислительных машин 
было создание в коммерческих целях систем генераторов отчетов (Re¬ 
port Program Generator. RP G)*. Эти системы могли прочесть файл, 
переработать требуемую информацию и выдать на печать сообщение 
для анализа. При этом требовались детальная спецификация вводи¬ 
мого файла (включающая информацию о различных записях и элемен¬ 
тах данных в файле), информация о данных вывода (включающая спе¬ 
цификацию типа вывода — печатные сообщения, итоговые карты и 
т. п.) и редактирование. Генераторы отчетов могли производить про¬ 
стейшие вычисления (например, суммирование). 

Генераторы отчетов стали сразу популярным инструментом про¬ 
граммирования экономических задач. Они быстро и эффективно про¬ 
изводили однообразную работу и могли решать сравнительно простые 
задачи. Поскольку овладеть генераторами отсчетов было легко, даже 
неопытный программист мог пользоваться ЭВМ без длительной пред¬ 
варительной подготовки. Основной недостаток генераторов отчетов 
заключается в том, что они слишком ориентированы на какой-либо 
один тип машины и поэтому непригодны для других систем. Но, не¬ 
смотря на этот недостаток, генераторы отчетов представляют собой 
очень эффективное средство для решения довольно широкого круга 
экономических задач. 

Правительство США понимало, что для более эффективной обра¬ 
ботки и решения экономических задач необходимо более независимое 
и общее средство программирования, и к I960 г. был создан язык про¬ 
граммирования экономических задач — Кобол (Common Business 
Oriented Language, COBOL)**. По идее Кобол должен был позволять 
писать программы на языке, близком к английскому, так, чтобы их 
можно было применять на машинах различных типов. 

Необходимость обработки разнообразных форматов входных и вы¬ 
ходных данных привела к тому, что транслятор Кобола усложнился 
по сравнению с транслятором Фортрана. 

Программы на Коболе можно успешно переносить с одного типа 
вычислительных машин на другой, почти не внося никаких изменений. 

Кобол состоит из четырех частей: раздела идентификаций, раздела 
оборудования, раздела данных и раздела процедур. Каждый из этих 
разделов выполняет специальную функцию. В разделе идентификации 
содержится описательная информация о транслируемой программе. 
Раздел оборудования сообщает транслятору характеристики и конфи- 


* Описание этой системы можно найти в кн.: Ф и ш е р Ф. П. и 
Су и н дл Д. Ф. Системы программирования. М., «Статистика», 1971. — 
Примеч. пер. 

** Описание языка Кобол дано в кн.: Сэксон Дж. Кобол. М., «Статно- 
тика», 1970; Джермейн К. Программирование на IBM/360. М., «Мир», 
1971. — Примеч. пер. 
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гурацию машины, на которой данная программа будет реализована. 
Это предоставляет возможность написания одной и той же программы 
на исходном языке для машин различных типов. Раздел данных дает 
характеристики каждого файла и предъявляет требования к памяти 
для конкретной программы. Раздел процедур описывает шаги, необхо¬ 
димые для реализации программы. Эти шаги записываются в виде опе¬ 
раторов и могут быть представлены как предложения, параграфы и 
секции. Операторы делятся на повелительные, условные и директивы 
транслятору. Повелительные операторы предназначены для описания 
безусловных действий. Условные операторы позволяют изменять вы¬ 
полнение программы в зависимости от полученных результатов. Опе¬ 
раторы директив транслятору, как показывает само название, управ¬ 
ляют процессом трансляции. 

Операторы Кобола состоят из набора символов, в них применяются 
знаки препинания и содержатся отдельные слова. Это делает их похо¬ 
жими на английские предложения. Слова в операторах представляют 
собой имена существительные и глаголы. Операторы могут также вклю¬ 
чать арифметические операции. Определенные слова имеют особое 
значение для транслятора, поэтому их применение ограничено. Обычно 
форма языка по структуре такова, что исходную программу сравни¬ 
тельно легко прочитать и определить, какие операции будут выпол¬ 
няться машиной. 

Первый транслятор с Кобола подвергся критике, так как он не 
позволял составить достаточно эффективную рабочую программу. Бо¬ 
лее поздние варианты транслятора были значительно улучшены и рас¬ 
ширены. Это сделало Кобол самым подходящим языком для решения 
коммерческих задач. Однако транслятор с Кобола не позволяет эко¬ 
номистам полностью исйользовать возможности вычислительных ма¬ 
шин, а применение Фортрана не позволяет решать задачи с большим 
разнообразием структур файлов, что характерно для коммерческих 
задач. Потребовался новый подход к языку высокого уровня, так как 
коммерческие задачи часто приобретали черты научных задач, а на¬ 
учные задачи — черты экономических. 

Изучение недостатков машинно-ориентированных языков выявило 
границы возможностей человека-оператора в управлении комплексом 
вычислительных машин. Машины становились все более производи¬ 
тельными и нельзя было допускать перерывов в работе, пока оператор 
не выполнит какие-то отдельные операции. Для управления решениями 
отдельных задач и сокращения времени на отладку были созданы мо¬ 
ниторы. Но, в конце концов, стало ясно, что независимо от степени ква¬ 
лификации оператор действовал слишком медленно и допускал ошибки 
во время непосредственной работы на вычислительной машине. Так 
созрела идея создания и применения операционных систем. Программа 
операционной-системы'частично хранится в оперативной памяти вычи¬ 
слительной машины с целью максимального использования всех ре¬ 
сурсов ЭВМ. Достаточно развитые операционные системы позволяют 
осуществлять непрерывное последовательное выполнение задач, об¬ 
ращаться к необходимым данным и подпрограммам, требующимся вы¬ 
полняемой программе. Если позволяют ресурсы, операционная систе- 



ма выполняет одновременно две или более работы. Кроме того, опера¬ 
ционная система учитывает машинное время. Это дает возможность 
предъявить пользователю точный счет за проделанную работу. Для 
управления работой вычислительной машины в операционные системы 
обычно включают как их составную часть трансляторы с различных 
языков высокого уровня. 

В процессе применения операционных систем возник новый тип 
программистов, которых стали называть системными программистами. 
Системные программисты создают операционные системы, транслято¬ 
ры и другие системы программ, позволяющие удобнее и эффективнее 
применять ЭВМ. Большинство системных программистов вынуждено 
было прибегать в своей работе к мнемокодам. Мнемокоды имели много 
недостатков, поэтому созрела необходимость создания более приемле¬ 
мого языка программирования. 

1.7. ВОЗНИКНОВЕНИЕ ЯЗЫКА 
ПРОГРАММИРОВАНИЯ ПЛ/1 

В 1963 г. фирмой IBM был создан комитет представителей двух 
организаций: пользователей вычислительных машин для решения 
научных задач (SHARE) и пользователей машин для решения коммер¬ 
ческих задач (GUIDE). Этот комитет пришел к выводу, что для лучшего 
использования возрастающей мощности вычислительных систем необ¬ 
ходимо разработать новый язык программирования высокого уровня. 
Этот новый язык, названный ПЛ/1, должен был вобрать в себя лучшие 
черты существующих языков T позволить полностью реализовывать 
потенциальные возможности современных вычислительных комплек¬ 
сов. Он должен был предоставить возможность решать научные задачи 
"более разнообразные, чем позволял Фортран, и помочь программистам, 
решающим коммерческие задачи, в серьезных вычислениях, которые 
невозможны с помощью Кобола. Наконец, новый язык должен был 
дать системным программистам средство для решения задач в реаль¬ 
ном масштабе времени, а также разработки эффективных операций вво¬ 
да-вывода при соответствующих устройствах связи. 

При написании программ на языке с такими широкими возможно¬ 
стями, как у ПЛ/1, отпадает необходимость создания программ на 
других языках. Применение только одного языка существенно умень¬ 
шает расходы на обучение программистов и упрощает проблемы стан¬ 
дартизации. Программисты, разрабатывающие программы для науч¬ 
ных и коммерческих задач, и системные программисты могут легко 
понять друг друга. Они могут читать программы, написанные другими, 
обогащать друг друга своим опытом и знаниями и более эффективно 
решать стоящие перед ними задачи. 

Создание языка ПЛ/1 преследовало также цель более эффективного 
использования возможностей современной вычислительной техники. 
Одна из наиболее важных черт вычислительных машин третьего поко¬ 
ления заключается в широком применении систем прерывания. Это 
устройство позволяет работать в режиме мультипрограммирования при 
переключении машины на решение другой задачи, когда по той или 
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иной причине необходимо прервать выполнение первой. Язык ПЛ/1, 
кроме того, легко связать с операционной системой современных ЭВМ. 
Ранее созданные языки не давали такой возможности пользоваться 
преимуществами вычислительной техники третьего поколения. 

Одним из недостатков созданных ранее языков высокого уровня 
были жесткие ограничения на включение определенных символов и 
применение правил написания программ. ПЛ/1 позволяет снять эти 
ограничения. Еще одно достоинство языка ПЛ/1 заключается в том, 
что пользователь может работать только с теми средствами языка, 
которые нужны для решения его задачи. При этом он не обязан знать 
все средства языка. ПЛ/1 —достаточно простой язык, чтобы им мог 
овладеть начинающий программист, и достаточно мощный, чтобы удов¬ 
летворять нужды квалифицированных пользователей. 

Все сказанное говорит о том, что новый язык высокого уровня ПЛ/1 
мог бы стать единственным языком программирования для реализации 
разнообразных возможностей любых вычислительных систем. Он мог 
бы позволить эффективно работать на ЭВМ различной конфигурации 
и управлять устройствами ввода-вывода. К преимуществам языка 
ПЛ/1 можно отнести: 

1) улучшение связи и ассимиляции разнообразных программ для 
различных прикладных задач; 

2) одинаковое использование файлов в различных прикладных за¬ 
дачах; 

3) минимизацию необходимости применения машинно-ориентиро¬ 
ванных языков; 

4) обеспечение лучшей подготовки программистов, поскольку тре¬ 
буется овладеть только одним языком; 

5) упрощение стандартов разработки программ, их описания и от¬ 
ладки; 

6) более полное использование ресурсов вычислительной машины 
за счет более эффективного транслятора и программ, написанных на 
языке ПЛ/1. 

Как всякий новый язык, ПЛ/1 не избежал болезней роста. Так, до 
1967 г. не было версии транслятора, который можно было бы широко 
применять. В начале 1968 г. создали улучшенный вариант трансля¬ 
тора и тогда стали очевидными достоинства языка ПЛ/1. Одной из са¬ 
мых строгих проверок языка является его способность служить осно¬ 
вой для создания другого языка. ПЛ/1 стал основой нового языка 
FORMAC. 

В настоящее время ПЛ/1 применяется во многих коммерческих фир¬ 
мах для решения экономических задач и для обработки деловой ин¬ 
формации. Человек, занимающийся гуманитарными науками и ис¬ 
кусством, может воспользоваться языком ПЛ/1 как прекрасным инстру¬ 
ментом для анализа и изучения произведений литературы, музыки и 
изящных искусств. Программист, занимающийся решением научных 
задач, найдет в ПЛ/1 мощное средство для решения аналитических за¬ 
дач и задач по моделированию. 
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Глава 2 


ПЛ/1 - БЫСТРОЕ НАЧАЛО 


2.1. ВВЕДЕНИЕ 


Один из лучших способов овладения новым языком — 
это применение его на практике. В данной главе будут рассмотрены 
только основные черты языка ПЛ/1, которые дадут пользователю воз¬ 
можность начать составлять простые программы. Для простоты и яс¬ 
ности введения в нем будут рассмотрены характеристики ПЛ/1, делаю¬ 
щие его похожим на языки программирования типа Фортрана и Кобо¬ 
ла для решения научных и экономических задач. 

Систематическое изложение всех особенностей ПЛ/1 начнется 
в главе 3 и только тогда станут очевидными все возможности широкого 
применения этого языка. Примеры в книге иллюстрируют новые идеи, 
заложенные в ПЛ/1, и показывают, как использованы в нем старые. 
Непосредственное применение языка в реальных программах — самый 
убедительный способ перехода от теории к практике. 

Авторы должны предупредить читателя, что в этой главе будут 
приведены только наиболее яркие примеры и показаны лишь некото¬ 
рые возможности применения языка ПЛ/1. Некоторые конструкции 
языка, рассмотренные в настоящей главе, очень специфичны. Их мы 
включили с целью помочь обучающемуся сравнительно быстро овла¬ 
деть навыком составления программ средней трудности. 

Как указывалось в главе 1, программа, написанная на языке ПЛ/1, 
называется исходной программой. Для введения в машину она обычно 
перфорируется на карты. Для последующей обработки транслятор 
ПЛ/1 переводит ее на машинный язык. Программа, написанная на ма¬ 
шинном языке, называется выходной или рабочей программой. В на¬ 
стоящее время существуют два варианта транслятора ПЛ/1. Трансля¬ 
тор, который позволяет реализовать все возможности языка, является 
частью операционной системы уровня F для машины ІВМ-360. Сущест- 


26 




вует также транслятор только для подмножества языка ПЛ/1. В на¬ 
стоящей книге язык программирования ПЛ/1 будет рассмотрен в пол¬ 
ном объеме. Будут также рассмотрены ограничения при использова¬ 
нии транслятора ленточной и дисковой операционных систем машины 
ІВМ-360. Таким образом, программист может сам решить, какой из 
вариантов транслятора ПЛ/1 лучше применить. 

За те годы, в течение которых Фортран и Кобол из довольно про¬ 
стых языков превратились в современные системы, все вносимые в них 
изменения заключались во введении новых конструкций; никаких из¬ 
менений ранее созданных конструкций не делалось. Одна из причин 
такого положения заключалась в экономической стороне вопроса. 
Было жаль средств, вложенных в создание программ и подпрограмм. 
Другой причиной была привычка; программист, раз начав пользоваться 
новым вариантом языка, старался добавлять новые конструкции толь¬ 
ко в случае необходимости. 

В результате изложенного многие конструкции, например в Форт¬ 
ране, выполняют двойные функции, и они могли бы использоваться 
гораздо полнее. Пожалуй, наиболее ясно эта избыточность проявля¬ 
ется в операторах REAL, COMPLEX, INTEGER, LOGICAL, DOUBL% 
PRECISION, DIMENSION, DATA, COMMON и EQUIVALENCE: 
Эти операторы предназначены для введения в транслятор информации 
о переменных, имеющихся в программе, и выполняемые ими функции 
перекрывают друг друга. Если взглянуть на проблему преобразования 
информации транслятором с чисто лингвистической точки зрения, 
то можно было бы избрать более простой метод. Создатели ПЛ/1 имен¬ 
но так подошли к проблеме и поэтому смогли объединить функции, 
выполняемые этими операторами, в один оператор DECLARE 
(ОБЪЯВИТЬ). Оператор DECLARE, построенный на рациональной ос¬ 
нове организации языка, может иметь гораздо более широкое приме¬ 
нение, чем просто описание данных, которое он выполнял в ранее со¬ 
зданных языках. 

ПЛ/1 — новый язык для программистов, но он базируется на уже 
накопленном опыте решения задач. Удивительно то, что трудности 
описания логики программ, свойственные ранее созданным языкам, 
исчезают, когда программа записывается на ПЛ/1. У большинства 
программистов есть своеобразный «список пожеланий» — перечень то¬ 
го, что им хотелось бы выполнять непосредственно. Хотя ПЛ/1 еще 
не может удовлетворить всех чаяний программистов, он снимает много 
вопросов из этого «списка пожеланий». Это делает ПЛ/1 одним из наи¬ 
более важных, значительных и разносторонних языков, созданных 
в последнее десятилетие и отвечающих современному состоянию вы¬ 
числительной техники. 

Далее приводится законченная программа, записанная на языке 
ПЛ/1. Она иллюстрирует некоторые особенности языка. Программа 
считывает с перфокарты данных целое число, отперфорированное на 
ней, определяя количество последующих карт данных. На каждой 
из последующих карт в колонках 1—40 перфорируется одно из имен 
в форме: SMITH, ROBEPT J, а затем в колонках 45—80 семь одно- 
или двузначных чисел, представляющих собой номера счетов этих 
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лиц (числа разделены пропусками). Программа считывает эти данные, 
распределяет номера счетов в порядке убывания и определяет средний 
номер счета. Затем программа выдает на печать результаты, располагая 
номера счетов в нисходящем порядке. За этой таблицей следует табли¬ 
ца с алфавитным списком лиц и их счетов. В конце дается среднее зна¬ 
чение номеров счетов. 

В программу включено несколько примечаний, чтобы подчеркнуть 
некоторые ее особенности Если читатель уже знаком хотя бы с одним 
языком высокого уровня, то ему будет сравнительно легко ознакомиться 
с программой. Следует отметить несколько особенностей языка ПЛ/1 
в этой программе: внутренние и внешние процедуры подпрограмм, 
удобная обработка строки символов, легкое управление памятью, 
«переменная размерность», использование двух различных типов опе¬ 
раторов ввода-вывода, расширенное множество символов, функция 
массива SUM в строке 15 процедуры Е201 и расширенные возможности 
операторов DO и IF. 

Комментарии к программам 
Программа E20I 
Перед оператором Іі 

/♦Глава 2, пример 1*/ 

/♦Сортировка числовая и алфавитная*/ 

После оператора 1: 

/♦Использование данных CONTROLLED в операторе DECLARE (сокращен¬ 
но DCL) позволяет программисту распределят! память во время выполнения про¬ 
граммы. Внешний ATTRIBUTE минимизирует необходимость прохождения дан¬ 
ных в процедуры через вписок аргументов. Этот оператор похож на оператор 
COMMON в Фортране и детально будет описан в главе 6.♦/ 

После оператора 3: 

/♦Оператор ALLOCATE определяет требования к па ляти для хранения дан¬ 
ных CONTROLLED во время выполнения программы.*/ 

После оператора 4: 

/* Сначала считать имена и номера счетов, далее просканировать их и найти 
максимальный и минимальный, затем вычислить средний.*/ 

Перед оператором 17: 

/♦Заметьте, что команда DO LOOP в операторе 17 отличается по форме от 
команд в операторах б, 7 и 11. ПЛ/1 позволяет использовать оба варианта с не¬ 
сколькими расширениями, что очень ценно для программиста.*/ 

После оператора 17: 

/* Оператор обращения образует безусловный переход к другой процедуре 
(здесь внешней): переменная DATA TYPE, объявлена строкой символов длины 6, 
передается процедуре SORT (сортировка).*/ 

Программа SORT 
После оператора 1: 

Использование '*’ в описании размерности определяет, что размерность пе¬ 
ременного массива такая же, как в последнем операторе ALLOCATE. 

После оператора 6: 

Внутренняя процедура NUMERIG сортирует счета в порядке убывания. 
После оператора 20: 

Внутренняя процедура ALPHA сортирует имена в алфавитном порядке. 
После оператора 41: 

Как процедура ALPHA, так и процедура NUMERIC используют внутреннюю 
процедуру SWITCH для реверсирования порядка счетов и имен во время сорти¬ 
ровки. 


ТАБЛИЦА СЧЕТОВ В ПОРЯДКЕ 
УБЫВАНИЯ 


Имя Счет 

DQB, RALPH М. 61 

SMIt*H, ROBERT R. 59 

MILLER, ALEX H. 84 

SMITH, RICHARD J. 52 

JONES. RALPH D. 81 


2.2. НАБОРЫ СИМВОЛОВ 


ТАБЛИЦА СЧЕТОВ В АЛФАВИТНОМ 
ПОРЯДКЕ 

Имя Счет 

DOE, RALPH М. 61 

JONES. RALPH D. 51 

MILLER, ALEX H. 54 

SMITH, RICHARD J. 52 

SMITH, ROBERT R. Б9 

THE AVERAGE SCORE IS 55 


Любой язык состоит из элементов, организованных определенным 
образом. Основные элементы языка—символы, которыми этот язык 
записывается. В ПЛ/1 существуют два основных набора символов: 
набор из 60 символов и набор из 48 символов. Теоретически выбор од¬ 
ного из этих двух наборов произволен; практически же этот выбор за¬ 
висит от устройства ввода-вывода, применяемого в системе. В каждом 
наборе существуют три вида символов: алфавитные, цифровые и спе¬ 
циальные. Если алфавитные и цифровые символы объединяются, их 
называют алфавитно-цифровыми. Некоторые символы могут быть объе¬ 
динены, они образуют комбинированные символы. 

В настоящей книге мы будем пользоваться набором из 60 символов. 
Всюду, где устройства ввода-вывода позволяют, рекомендуется имен¬ 
но этот набор. Он дает возможность составить наиболее точные, легко 
читаемые программы и сократить до минимума количество ошибок. 

Далее перечислены символы этого набора: 


знак доллара 
знак номера 
10 цифр: 

0123456789 
21 специальный символ: 
пробел 

знак равенства 
плюс + 

минус — 

звездочка (знак умножения) * 
наклонная черта (знак деления) / 
открывающая скобка ( 


апостроф (кавычка) 
процент % 

точка с запятой ; 

двоеточие I 

символ отрицания 

символ И & 

символ ИЛИ I 

знак больше > 

знак меньше < 

символ разбивки (черта под строкой) — 
вопросительный знак ? 


28 алфавитных символов: закрывающая скобка 

26 букв английского алфавита запятая 

ABCDEFGH1JKLMNOPQRSTUVWXYZ точка 


(В настоящее время символ «вопросительный знак» в языке не имеет 
специального значения). 

Общая таблица наборов из 60 и 48 символов, комбинированные сим¬ 
волы, коды для перфорирования и 8-битовый код EBCDIC (Extended 
Binary Coded Decimal Interchange Code) даны в приложении A. 
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2.3. ОСНОВНОЙ СИНТАКСИС ПЛ/1 


Правильная организация элементов внутри языка называется син¬ 
таксисом*. В языке ПЛ/1 программа составляется из выражений и ос¬ 
новных операторов, которые могут быть либо простыми, либо комби¬ 
нированными. Операторы объединяются в программные сегменты, на¬ 
зываемые блоками процедур и блоками начала. Такая организация по¬ 
хожа на ранее применяемые языки, такие, как Фортран, где основными 
единицами служили выражения и операторы Фортрана, а они, в свою 
очередь, могли образовывать основную программу или подпрограммы. 

Блоки процедур ПЛ/1 могут быть составлены отдельно, а затем 
соединены вместе, если это необходимо. Точно такая же возможность 
имеется в Фортране, когда отдельно составляется основная программа 
и подпрограммы, а затем из них составляется единая программа. Одна¬ 
ко в отличие от Фортрана ПЛ/1 позволяет пересечение блоков, и обмен 
результатами между блоками простой и прямой. В каждой программе 
на ПЛ/1 должна быть процедура, которую программа определяет как 
основную. Программа может быть сложной, в основную процедуру мо¬ 
гут быть вставлены блоки; другие блоки могут добавляться или со¬ 
ставляться отдельно. Выполнение программы начинается с основной 
процедуры. Мы ограничимся сейчас написанием программ с основной 
процедурой, в которой нет вставных блоков. Хотя это довольно су¬ 
щественное ограничение, но возможности ПЛ/1 позволяют решать 
многие задачи даже при такой простой структуре программ. 

Формат перфокарт. Предполагается, что в ПЛ/1 ввод и вывод будут 
представлять собой непрерывный поток информации. Это вполне воз¬ 
можно при современных средствах обработки данных на расстоянии. 
Применительно к перфокарте это означает, что колонки 2—72 читают¬ 
ся с первой карты колоды до последней так же, как при нанесении ин¬ 
формации на одну данную полосу перфоленты. Следовательно, карта 
не является основной единицей информации. На ней может быть от- 
перфорирован один оператор или даже часть его, может быть отперфо- 
рировано также много таких операторов. 

Колонку 1 перфокарты оставляют пустой, а колонки 73—80 обыч¬ 
но не сканируются транслятором. 

Использование колонок перфокарт для операторов. Колонка 1 
должна быть оставлена пустой, колонки 2—72 — исходные операторы, 
колонки 73—80 не сканируются транслятором, программист может 
пользоваться ими для нумерации или специальной идентификации. 

Конец оператора ПЛ/1 обозначается точкой с запятой. Каждый 
оператор ПЛИ должен заканчиваться точкой с запятой (;). За некото¬ 
рым исключением пропуски в языке не учитываются, сих помощью про¬ 
грамму делают более удобной для чтения. Пропуски могут быть в на¬ 
чале и конце любого оператора, перед операторами или после них, 
а также после большинства других ограничителей. 


* Обычно синтаксисом языка называется множество формальных правил 
вывода правильно построенных строк или предложений языка. — Примеч. пер. 


2 Зак. 1278 
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Комментарии. Комментарии .можно вставить в любой пропуск. 
Они не принимаются во'внимание транслятором, а используются для 
документации. 

Обычная форма комментария может быть такой: 

/*Любая строка символов ПЛ/1*/ 

Символы I* означают начало комментария, а символы*/ — его конец. 
Между двумя этими символами не может быть никакого пропуска. 

Пример 

/• ЭТОТ ОПЕРАТОР МОЖНО ВСТАВИТЬ В ЛЮБОЕ МЕСТО ПРОГРАММЫ НА ПЛ/1, 
ГДЕ ЕСТЬ ПРОПУСК*/ 

Неправильно набитые карты, на которых отперфорированы коммента¬ 
рии, могут дать некоторые необычные результаты. Например, если два 
знака — */, которые стоят в конце комментария, отперфорированы на 
карте после колонки 72, машина не воспринимает их, и, следовательно, 
следующие операторы ПЛ/1 будут интерпретированы как коммента¬ 
рии. С другой стороны, в некоторых системах символы I* могут слу¬ 
жить ограничителями, если они нанесены в колонках 1 и 2. В этом слу¬ 
чае, так же как и в операционной системе-360, комментарий, который 
начинается в колонке 1, вызовет прекращение чтения программы. Дру¬ 
гими словами, необходимо твердо следовать правилам перфорирования 
данных на карты так, как они даны в настоящей книге. 

Идентификаторы. Имена на ПЛ/1 задаются примерно так же, как 
на ранее известных языках, таких, как Фортран и Кобол. В ПЛ/1 эти 
имена независимо от того, для чего они используются, называются 
идентификаторами. Идентификатор может содержать от одного бук¬ 
венного символа до целой строки буквенно-цифровых символов и сим¬ 
вола — . Перед идентификатором или после него может стоять про- 
J3VCK или какой-либо другой ограничитель. Если используется более 
чем один симв ол., то первый должен быть буквенным. Длина строки 
нденті«£икаторгГ не может превышать 31 символа. (Существует несколь¬ 
ко исключений из этого правила, об этом будет сказано, когда они 
встретятся.) 

Примеры 

$XYZ 

RATE _ PER _ HOUR 

NAME_ADDRESS 

# 789 

Метки. Первое, что может заметить программист, знакомый с Фор¬ 
траном и Коболом, когда он начинает изучать программу на ПЛ/1, — 
это отсутствие номеров операторов или строк. Вместо них в ПЛ/1 
используются идентификаторы. В этом случае они определяются как 
„метки. Оператор ПЛ/1 может иметь более чем одну метку, и любая из 
них может быть отнесена к данному оператору. Метка должна стоять 
перед оператором и отделяться от оператора двоеточием (:). Метка ста¬ 
вится перед оператором, только если в этом есть необходимость. 
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Форма простого оператора ПЛ/1 выглядит следующим образом: 
label: label: ... label: оператор PL/1; 

некоторые или все метки могут быть опущены. 

PROCEDURE и END. Как указывалось ранее, в каждой програм¬ 
ме ПЛ/1 должна быть главная процедура. В ней могут также быть, 
хотя и необязательно, другие блоки. Первый оператор в этой глав¬ 
ной процедуре должен быть записан следующим образом: 

четка: PROCEDURE OPTIONS (MAIN); 

Первый оператор должен иметь одну и только одну метку. Эта мет¬ 
ка является идентификатором, но с одним исключением: ее длина не 
должна превышать семи символов 1 . 

"Для того чтобы отметить конец блока этой процедуры, нужно ука¬ 
зать оператор END в форме: 
label: label: ... label: END label; 

Это последний оператор в процедуре. Метки в этом операторе END 
произвольны. Первая метка (или метки) является метками оператора, 
в то время как последняя метка, если она необходима, означает метку 
процедуры. Это облегчает чтение блока процедуры. 

Пример 

Если первый оператор процедуры 

ABC: PROCEDURE OPTIONS (MAIN); 

то любой следующий оператор может быть последним: 

tND; 

hND ABC; 

XYZ: END; 

XYZ: END ABC; 

Если во время выполнения программы встречается оператор END, 
то выполнение процедуры прекращается. Оператор END в ПЛ/1 мо¬ 
жет использоваться и в других случаях. Об этом будет сказано далее. 

Ключевые слова. В некоторых ранее созданных языках ключевые 
слова, вставленные в программу, приносили много трудностей. Если 
ими пользовались, не зная их истинного назначения, то это, как прави¬ 
ло, приводило к получению неправильных результатов, которые с тру¬ 
дом поддавались определению. На практике это означало, что про¬ 
граммист должен был либо знать заранее все ключевые слова и их упо¬ 
требление, либо идти на риск неправильного выполнения программы. 
В ПЛ/1 ключевых слов гораздо больше, чем в Фортране, но програм¬ 
мисту нет необходимости знать о них, если только он не хочет исполь¬ 
зовать эти слова в их формальном значении. Транслятор переведет 
ключевое слово в контексте оператора, если оно там встретится. На¬ 
пример, ключевое слово в Фортране S1N может быть взято в ПЛ/1 
в качестве имени метки или беременной, хотя в ПЛ/1 имеется встроен¬ 
ная функция с таким названием. Намерен ли программист словом 


1 В некоторых вариантах трансляторов для этой метки достаточно только 
шести символов. 



SIN обозначить функцию или метку, становится ясным из структуры 
программного оператора ПЛ/1. Список ключевых слов и их функций 
дан в приложении В. Ключевые слова в приведенных примерах будут 
определяться по мере их введения. 

2.4. КОНСТАНТЫ, ПЕРЕМЕННЫЕ И ОПЕРАТОР 
DECLARE (ОБЪЯВИТЬ) 

Данные. В одной из версий Фортрана шесть типов данных: целые, 
с плавающей запятой, двойной точности, комплексные, логические и 
символьные. Это затрудняет и запутывает дело. ПЛ/1 позволяет ис¬ 
пользовать все эти типы данных и даже больше, но употребление их 
в ПЛ/1 гораздо проще. 

Для определения типа переменных и констант существуют следую¬ 
щие описатели: 

Основание системы счисления ... может быть BINARY (двоичное) или DECIMAL 
(десятичное) 

Масштаб ... может быть FIXED (с фиксированной точкой) или 
FLOAT (с плавающей точкой) 

_Тип ... может быть REAL (действительный) или COMPLEX (комплексный) 
Точность .... может быть определена программистом в пределах применяемого 
транслятора 

В подмнож естве комплексный тип не используется. Предполагается, 
- нто все арифметические данные вещественные и описание REAL нельзя 
употреблять в операторе DECLARE.) 

•Перед всеми арифметическими константами может стоять знак плюо 
или минус. Если такого знака нет, то эти константы полагаются поло¬ 
жительными. Каждая арифметическая константа или переменная при¬ 
надлежит одному из перечисленных типов*. В электронной вычисли¬ 
тельной машине различные данные представляются разными способами. 
Например, число 27 в двоичной форме записывается как 11011 и оз¬ 
начает 1(2) 4 4- 1(2) 3 + 0 (2) 2 + R2) 1 + 1(2)°. Та же самая величина 
может быть представлена как 11110010 11110111. В последнем случае 
каждое десятичное число представлено в коде, пригодном для многих 
современных вычислительных машин. В приложении А дан такой код 
для всех символов ПЛ/1. 

DECIMAL FIXED POINT (Десятичные константы с фиксированной 
точкой). Десятичные константы с фиксированной точкой представляют 
собой строку из одной или нескольких десятичных цифр с десятичной 
точкой или без нее. Если десятичной точки нет, то предполагается, что 
сна следует сразу же за последним числом строки. 

Примеры 

8 7625 
248 
.00007 
972 

+ 10.2 


* Г. е. является двоичной или десятичной, фиксированной или о плаваю¬ 
щей точкой, действительной или комплексной. — Примен. пер. 
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Знак плюс разъясняет программисту порядок использования кон¬ 
станты. 

Для того чтобы определить переменную АВС со свойствами REAL, 
DECIMAL, FIXED (вещественная, десятичная, с фиксированной точ¬ 
кой) пятью (5) цифрами с плюсом или минусом, из которых три идут 
после десятичной точки, можно воспользоваться следующим опера¬ 
тором DECLARE: 

DECLARE ABC RPAL DECIMAL FIXED (5.3): 


ДВ подмножестве языка оператор DECLARE следует сразу же за 
оператором PROCEDURE.) 

Пропуски нужны для разделения различных слов в операторе. 

„Порядок, в котором перечислены свойства оператора DECLARE, 
произвольный. Если в скобки заключено только одно число, например 
(5), то точность переменной определена, и она представляет целое чис¬ 
ло. Эта запись эквивалентна описанию точности (5, 0). 

Примеры 


Определение Цифровые значения 

точности (знак не включен) 


(Б, 3) 
(5) 

(7) 

(7. 2) 
(8, 4) 


12.345 

12345 

1234567 

12345.67 

1234.5678 


Двоичные константы с фиксированной точкой. Двоичные констан¬ 
ты с фиксированной точкой представляют собой строку с одним или 
несколькими двоичными числами с двоичной точкой или без нее. В 
конце стоит буква В. 

Примеры 

1101100 в 
11.011 в 
— 100 . юв 


Способ описания действительной переменной NUM с двоичной 
фиксированной точкой и с заданной точностью аналогичен способу, 
применяемому в случае десятичной фиксированной точки. Например, 

DECLARE NUM REAL BINARY FIXED (12.3); 

объявляет, что переменная NUM представляет собой переменную 
с двоичной фиксированной точкой, содержащей 12 двоичных чисел, 
три из которых следуют за двоичной точкой. Двоичное число с такой 
точностью равно 
-101101000.001 

(В подмножестве языка константа с двоичной фиксированной точкой 
не может содержать эту точку.) 

Десятичные константы с плавающей точкой. Употребление десятич¬ 
ных констант с плавающей точкой основано на тех же принципах, что 
и употребление чисел с плавающей точкой в Фортране. Место десятич¬ 
ной точки определяется числом с буквой Е. Например, Ё5 означает, что 


десятичная точка будет сдвинута на пять знаков вправо, а Е — 5 оз¬ 
начает, что десятичная точка будет сдвинута на пять знаков влево. 

Примеры 


Десятичные числа 
: плавающей точкой 


Числовые значения 


2000000. 

.00000000206 
—86542 1 0000600. 


„Точность определяется десятичным целым числом, которое показывает, 
сколько знаков должно предшествовать букве Е. Оператор 

DECLARE XYZ REAL DECIMAL FLOAT (4); 


объявляет, что переменная XYZ представляет собой константу с пла¬ 
вающей десятичной точкой; перед экспонентой Е стоит четыре десятич¬ 
ных числа. 

Двоичные константы с плавающей точкой Двоичные константы 
с плавающей точкой состоят из поля двоичных чисел, которое назы¬ 
вается мантиссой и обозначается буквой Е, и экспоненты, которая вы¬ 
ражается десятичными числами и заканчивается буквой В. Перед ман¬ 
тиссой может стоять знак, но его может и не быть. Двоичная точка в 
мантиссе необязательна. 

Примеры 

Двоичные числа Двоичные аифровые 

с плавающей точкой значения 

1101. 1E4B 11011000 

-1001. 111Е-2В -10.ОНИ 

1101 Е24 В 1101000000000000000000000000 

Десятичная экспонента показывает место расположения двоичной 
точки. Точность определяется так же, как в случае десятичного числа 
с плавающей точкой. 

Оператор 


DECLARE BCD REAL BINARY FLOAT (10): 

объявляет, что переменная ВС есть действительная, двоичная пере¬ 
менная с плавающей точкой; перед Е стоит 10 двоичных цифр. 

Отбрасывание значащих цифр. В большинстве электронных вы¬ 
числительных машин десятичные и двоичные константы с плавающей 
точкой хранятся в машине, при этом подразумевается, что десятичная 
точка стоит перед первой цифрой, не являющейся нулем. Если кон- 
"стант а присваивается переменной с плавающей точкой и объявленная - 
точность'переменной меньше точности константы, то отбрасываются 
цифр ы младших разрядов. Если константа присваивается переменной 
~с фиксированной точкой , а объявленная точность меньше, чем точность 
константы, то старшие или младшие разряды отбрасываются в зависи¬ 
мости от описания точности переменной. 

Примеры 

Переменная с плавающей точкой: значение константы 12345.678 
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Описание Значение, приписываемое 

точности переменной 


( 6 ) 

(8) 

(10) 


.123456Е5 
Л2345678Е5 
Л234567800Е5 


Переменная с фиксированной точкой: значение константы 12345.678 


Описание Значение, приписываемое 

точности переменной 


(8.3) 

(6.3) 
(8 Л) 
(9.2) 
(8) 


12345.678 

345.678 

2345.6780 

0012345.67 

00012345. 


В случае переменной с фиксированной точкой корректировка всег¬ 
да производится по десятичной точке, а поле либо сокращается, либо 
к нему добавляются нули справа и слева от десятичной точки. 

Комплексные переменные. В подмножестве языка не выполняются 
операции с мнимыми и комплексными числами. Мни мая константа 
может быть записана как любой из предыдущих типов данных, за ней 
сразу же следует буква L 
Примеры 


Мнимая констанша 


2.34Е21 
10Г.01В1 
ІЮ» 01 ІЕ — 2BI 


11.010Ш (двотчкое чигло) 


Комплексная константа, так же как в математике, записывается как 
сумма вещественной и мнимой константы. 

Примеры 


Комплексная константа Десятичное число 


3—41 

-ѴВ + 


3 — 41 

4.56 + 2.341 
—1+31 


Комплексная переменная может быть тех же типов, что и вещест¬ 
венная переменная. Эти признаки относятся как к вещественной, так 
и к мнимой части комплексного числа. Оператор 


DECLARE 2 COMPLEX FIXED DECIMAL (5.2); 


объявляет, что переменная Z — комплексная переменная с фиксиро¬ 
ванными вещественной и мнимой частями, выраженная десятичными 
числами точности (5,2). 

Начальные значения. Начальные значения для переменных могут 
быть определены в операторе DECLARE записью INITIAL (значение). 
Оператор 


DECLARE A REAL FIXED DECIMAL (5,0) INITIAL (0), В REAL DECIMAL 
FLOAT (6> INITIAL (2E1); 


присваивает значение 0 вещественной фиксированной десятичной пе¬ 
ременной А точности (5,0), а значение 20 — вещественной десятичной 
переменной с плавающей точкой точности (6). В операторе INITIAL 
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может быть использован повторитель как средство инициализации зна¬ 
чений массива. Например, 

DECLARE А (100) REAL FIXED DECIMAL INITIAL ((10)1. (90)0); 

будет означать А (1), А (10) со значением 1, а остальные 90— со 
значением 0. Описатель типа может относиться к нескольким перемен¬ 
ным, если они одного и того же типа. Например, оператор 

" DECLARE A FIXED REAL DECIMAL (5,0), В FIXED REAL BINARY (10,2); 

эквивалентен 

DECLARE (A DECIMAL (5,0), B BINARY (10,2)) FIXED REAL; 

Описате ли типа могут идти в любом порядке за одним исключением: 
описатель точности не может следовать непосредственно за именем пе¬ 
ременной. Это объясняется тем, что оператор DECLARE служит также 
для определения размерности переменной, как оператор DIMENSION 
(размерность) в Фортране, и эта информация о размерности следует 
сразу же за именем переменной. Оператор 

DECLARE (А( 10), В (8, 10)) REAL DECIMAL FLOAT (7); 

объявляет, что А есть переменная размерности 10, а В — массив 
8Х10. Все эти 90 элементов представляют собой вещественные десятич¬ 
ные переменные с плавающей точкой точности 7. Вопросы, связанные 
с размерностью, подробнее будут рассмотрены в следующей главе. 

Язык ПЛ/1 представляет прекрасные возможности для индекси¬ 
рования. Для одной переменной может употребляться до 32 индексов. 
Эти индексы бывают положительными, отрицательными или нулевы¬ 
ми.. Сами индексы могухбыть выражениями ПЛ/1. (Подмножество язы¬ 
ка позволяет использовать максимум три индекса.) На практике нет 
необходимости проводить спецификацию всех определителей перемен¬ 
ных. Если какие-либо определители не обозначены, то система будет 
определять их п о умолчанию. Правила для определения переменных 
по умолчанию изложены в следующей главе. Большинство программи¬ 
стов, работающих с Фортраном, при изучении ПЛ/1 слишком пола¬ 
гаются на эти правила по умолчанию. До приобретения опыта по про¬ 
граммированию на ПЛ/1 лучше включить все переменные в оператор 
DECLARE. 

2.5. ВЫРАЖЕНИЯ И ОПЕРАТОР ПРИСВАИВАНИЯ 

Арифметические операции на языке ПЛ/1 аналогичны операциям 
на Фортране. 

Оператор Действия 

— минус 

* умножение 

/ деление 

** возведение в степень 

Выражения записываются и выполняются так же, как на Фортране, 
"заводним исключением: делается различие между знаками плюс и ми- 
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нус, стоящими перед операндом или выражением, и этими же знаками, 
соединяющими два операнда. В первом случае знак плюс или знак ми¬ 
нус называется префикс, во втором — инфикс. В последовательности 
символов"— А + В знак минус является префиксом, а знак плюс — 
инфиксом-. При возведении в степень операторы с префиксом имеют 
самый высокий приоритет при выполнении операций. Порядок вы¬ 
полнения арифметических операций в ПЛ/1 следующий: 

**, префикс +, префикс — самый высокий уровень 
инфикс +, инфикс — самый низкий уровень 

Как и в Фортране, операции с одинаковым приоритетом выполняются 
. в выражении слева направо.'К исключению относятся три оператора 
самого высокого приоритета, которые выполняются справа налево. 
Выражение — А + В* — С**2 обрабатывается как (—А) + (В*( — 
— (С**2))). При написании программы на ПЛ/1 круглые скобки не¬ 
обходимы для того, чтобы операции правильно выполнялись. 

Оператор присваивания А = В + С; имеет тот же смысл, что и 
в Фортране, т. е. переменной А присваивается значение В+С. Этот опе¬ 
ратор может привести к изменению типов данных. Выражение слева от 
знака равенства в операторе присваивания может иметь несколько 
переменных и всем им может быть присвоено значение выражения, 
стоящего справа от знака равенства. Например, в выражении X, Y, 
Z = А + В; значение А + В присваивается X, Y и Z. (В подмножестве 
языка не допускается присваивание одного значения нескольким пере¬ 
менным. Приведенный пример должен быть записан как три отдельных 
оператора: 

X = А + В; Y=A+B;Z=A + В; 
или 

X = А + В; Y = X; Z = X; 

последний вариант дает более эффективную рабочую программу.) 
В ПЛ/1 гораздо больше типов данных, чем в Фортране и Коболе, и про¬ 
граммист, если это целесообразно, может употреблять различные типы 
. в одном выражении. Правила обработки выражений, содержащих сме¬ 
шанные типы данных, довольно сложны. Выражения записываются та¬ 
ким образом, чтобы до тех пор, пока это не является абсолютно необ¬ 
ходимым, они не преобразовывались. Это делается с целью сохранения, 
насколько возможно, точности и значения промежуточных и конечных 
результатов. 

Преобразование арифметических данных в выражении произво¬ 
дится следующим образом. С каждой операцией связан один или два 
операнда, которые могут быть константой, переменной или ранее 
вычисленным выражением. Если каждый операнд является констан¬ 
той, то преобразование происходит во время трансляции. Если один 
операнд представляет собой константу с плавающей точкой, а другой— 
с фиксированной точкой, то операнд с фиксированной точкой может 
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быть преобразован в операнд с плавающей точкой. Если один операнд— 
двоичное число, а другой — десятичное, то десятичное число преобра¬ 
зовывается в двоичное. Если один операнд комплексный, то результат 
. тоже будет комплексным, а вещественный операнд не преобразуется. 

В начале обучения студенту лучше поступать так, как этого тре¬ 
бует здравый смысл, и не смешивать слишком много типов данных в од¬ 
ном операторе. Более подробно правила преобразования арифметиче¬ 
ских данных, а также другие виды преобразований будут обсуждаться 
в главе 4. 

Для того чтобы проиллюстрировать последовательность операций 
и преобразования данных, рассмотрим следующий пример: 

Z = (Х**2 — 3*Y + (1 + 2)*Х)*Сі 


Будем считать, что в этом примере Z и С объявлены комплексными, X 
и Y — действительными и все четыре числа являются десятичными 
с плазающей точкой. Кроме того, число 1 объявлено десятичным, дей¬ 
ствительным, с плавающей точкой. Это выражение будет вычисляться 
в следующей последовательности: 


Порядковый Операция 

номер 

1 1+2 


Действие 


Преобразование не производится. 

В результате получается десятичное ве¬ 
щественное число с плавающей точкой 


2 

3 

4 

5 

6 


Х**2 

3*Y 

(I + 2) * X 

(Х**2) - (3* Y) 
(Х**2 - 

-3*Ѵ) + С(І + 2) * X) 


Преобразование не производится — 
вычисляется как Х*Х 
3 преобразуется к виду с плавающей 
точкой во время трансляции В результате 
получается число с плавающей точкой 
(I + 2) преобразуется к виду с плавающей 
точкой. В результате получается число 
с плавающей точкой 

Преобразование не производится. В резуль¬ 
тате получается число с плавающей точкой 
Преобразование не производится. В ре¬ 
зультате получается число с плавающей 
точкой 


7 ((Х*2 — 3*Y) + Преобразование не производится. В ре- 

-j-((I + 2)*Х))*С зультате получается комплексное число. 


8. Полученное значение комплексного числа присваивается переменной Z, 


Для обработки большего набора типов данных ПЛ/1 располагает го¬ 
раздо большим числом встроенных функций, чем Фортран. Список 
этих функций приводится в приложении Д. В большинстве случаев 
основание, масштаб и тип аргумента математической функции опреде¬ 
ляют результат. Например, функция SIN используется для вычисления 
синуса вещественного или комплексного аргумента с фиксированной 
или плавающей точкой, десятичного или двоичного. Наиболее часто 
встречающимися математическими функциями являются: 
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Функция (аргумент) 


Получающийся результат 


EXP (X) 
LOO (X) 
SIN (X) 
COS (X) 
TAN (X) 
SQRT (X) 
ABS (X) 


e* 

log e 




косинус к 
тангенс x 


квадратный корень из числа х 
абсолютное значение числа х 
остаток от деления целых чисел х/у 
наибольшее целое число, не превосходящее х 


MOD (X, Y) 


FLOOR (X) 
CEIL (X) 


н аименьшее 


целое, превосходящее 


2.6. ОПЕРАТОРЫ УПРАВЛЕНИЯ 

GO ТО [ПЕРЕЙТИ НА]. В ПЛ/1 имеется только один оператор 
GO ТО. Он имеет форму 

GO ТО м етка; 

Как всякий оператор языка ПЛ/1, оператор GO ТО может иметь одну 
или много меток. Приведем примеры правильных операторов GO ТО: 

GO ТО START; 

ABC: GO ТО OUTPUT; 

X:Y: GO ТО CHANGE _ DUE; 

Может показаться, что эти операторы выполняются так же, как безу¬ 
словный оператор GO ТО п в Фортране, но позже будет показано, что 
это не так; в ПЛ/1 метки могут быть переменными и могут даже индек¬ 
сироваться. Это, безусловно, увеличивает возможности оператора 
GO ТО в ПЛ/1 по сравнению с Фортраном. 

DO [ВЫПОЛНИТЬ]. В ПЛ/1 оператор DO имеет гораздо боль¬ 
шие возможности, чем этот же оператор в Фортране. Прежде всего, 
представим оператор цикла Фортрана в его наиболее общей форме: 

п, DO n, l — mi. т,„ т, 

Л] последний оператор в цикле. 

В ПЛ/1 этот цикл может быть записан следующим образом: 

метка 1: DO 1 = га, ТО m, BY т а ; 
метка 2: END метка 1; 

Метка 1 и метка 2 произвольные. Если в операторе DO метка опуще¬ 
на, то ее нельзя использовать после оператора END. Как и в Форт¬ 
ране, если BY опущено, то значение т 3 принимается за 1. Последним 
оператором в цикле должен быть оператор END. т и /л 2 и т 3 могут 
быть выражениями, а не только целыми числами. Приведем несколь¬ 
ко примеров этой формы оператора цикла DO: 

A: DO 1=1 то 50 BY 2; 


ENDj 
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Предложения в BY и ТО могут меняться местами, как это видно из 
следующего примера: 

START! DO 1=1 BY 2 TO 100: 

DO J = I— 1 TO 200; . 

B: END; 

END; 

В этом примере операторы DO вложены друг в друга, причем каждо¬ 
му оператору DO соответствует собственный оператор END: 

DO Х = 1 то 5, 10 ТО 8 BY —. I, 0, 3.U159; 

END; 

' В этом примере цикл будет выполняться при X, равном от 1 до 5 с при¬ 
ращением 1, затем при X, равном от 10 до 8 с приращением— 1, 
затем один раз при X, равном 0, и, наконец, еще один раз при X, 
равном 3.14159. 

Следующее выражение неправильно: 

DO 1=1 ТО 5. J=1 то 10; 

END; 

Это выражение должно записываться в виде двух отдельных циклов 
DO, и каждый цикл должен иметь собственный оператор END, так 
как в операторе DO в качестве индекса можно использовать только 
одну переменную. В операторе DO могут быть определены особые 
значения индекса, как это сделано в следующем примере: 

DO Х=1, 8.3.4, N, VALUE; 

END; 

Правила входа и выхода из операторов циклов DO и правила вы¬ 
числения циклов аналогичны правилам, принятым в Фортране. Одна¬ 
ко необходимо заметить, что правило окончания каждого цикла опе¬ 
ратором END позволяет обойти запрещение Фортрана использовать 
операторы передачи управления в качестве последних операторов 
цикла. Это делает программирование на ПЛ/1 более естественным, 
а программу — легко читаемой. 

Конструкция WHILE. Существует одна дополнительная конструк¬ 
ция, которая может быть включена в оператор DO, а именно конст¬ 
рукция WHILE. 

Следующий пример иллюстрирует конструкцию WHILE: 

A: DO WHILE (X <Y); 

END A; 

Этот цикл будет выполняться один раз, а затем текущие значения 
X и Y будут сравниваться. Если значение выражения X < Y истин¬ 
но, то цикл выполняется повторно. Цикл заканчивается, если значе¬ 
ние выражения X < Y становится ложным (т. е. X > Y) при про- 
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верке в конце одного из прохождений цикла. Необходимо заметить, 
что если X становится больше или равным Y в середине цикла, то вы¬ 
числения продолжаются. Проверка конструкции WHILE производит¬ 
ся только в конце цикла. 

DO Н = 10 ТО 100 BY 5 WHIU? (X < Y); 

EHD; 

Этот цикл будет выполняться при Н, первоначально равном 10, за¬ 
тем с приращением 5 до тех пор, пока при проверке перед очередным 
прохождением цикла не будет выполнено одно из двух условий. 
Цикл будет выполняться повторно, если Н ^ 100 и если текущее 
значение X и Y удовлетворяет отношению X < Y. Если ни одно из 
этих условий не выполняется, то цикл продолжает повторяться. 

В ранее приведенном примере выражение в скобках, следующее 
за конструкцией WHILE, может быть гораздо более сложным, чем 
это показано. Прежде чем проиллюстрировать это утверждение, мы 
должны кратко обсудить операторы сравнения и логические опера¬ 
торы. Они во многом аналогичны операторам Фортрана, но из-за 
расширенного набора символов обозначения для операторов ПЛ/1 
отличны от Фортрана. 

В операциях сравнения пользуются следующими символами: 

равно 
не равно 
больше чем 
не больше чем 
больше или равно 
меньше чем 
не меньше чем 
меньше или равно 

В логических операциях используются символы: 



не 

или 

и & 

Ранее рассмотренные операторы, логические и арифметические 
операции и операции сравнения выполняются в следующей после¬ 
довательности: 

**, (логический), префикс +, префикс — .самый высокий приоритет 

/, * второй приоритет 

инфикс +, инфикс — третий приоритет. 

Все операции сравнения: 

= , — =, >, >, >=, <, — <, < = четвертый приоритет 

& (логический) пятый приоритет 
I (логический) шестой приоритет. 

Когда в одном и том же выражении встречаются два или более 
оператора самого высокого приоритета, то порядок их выполнения 
справа налево. Когда в одном выражении встречается два или более 
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оператора одного и того же приоритета, кроме наивысшего, то оче¬ 
редность их выполнения — слева направо. Круглыми скобками мож¬ 
но пользоваться для изменения приоритета, так как выполнение опе¬ 
ратора начинается с внутренних круглых скобок. 

Основное различие между ПЛ/1 и ранее созданным Фортраном 
состоит в том, что в ПЛ/1 операторы префикс + и инфикс — выполня¬ 
ют в порядке самого высокого приоритета. Анализ логических опе¬ 
раторов в ПЛ/1 выполняется проверкой строк битов. Позже такая 
проверка будет рассмотрена детально. А сейчас рассмотрим логи¬ 
ческое выражение как выражение, определяющее значение TRUE 
(истинно) или FALSE (ложно) при выполнении программы с учетом 
очередности приоритетов и следующей таблицы истинности: 


Выражение 


(Выражение) 


Выражение 1 

Т 

Т 

F 

F 


Т 

F 

Выражение 2 

Т 

F 

Т 

F 


F 

Т 

(Выражение 1) & 
(Выражение 2) 

Т 

F 

F 

F 


(Выражение 1) | 
(Выражение 2) 
Т 
Т 
Т 
F 


Например, логическое выражение 

XX** — 2 < А*В + С & А == В 

будет выполняться, как если бы оно было записано в виде 


((X * *(—2)) < ((А*В) + С)) & (А = В) 

Возвращаясь к нашему обсуждению конструкции WHILE в операто¬ 
ре DO, можно сказать, что выполнение цикла DO будет повторяться 
до тех пор, пока логическое выражение в конструкции WHILE бу¬ 
дет истинно и индекс цикла, если только он имеется, не превзойдет 
своего конечного значения. Необходимо следить за тем, чтобы цикл 
мог закончиться в какой-либо точке. 

Например, цикл 

DO WHILE (А-1 = В); 


END; 

где А — вещественное десятичное число, а В — вещественное дво¬ 
ичное число, может привести к тому, что цикл будет повторяться 
бесконечно, так как А никогда не может быть в действительности 
равно В из-за разницы во внутреннем представлении чисел. 

Группа DO. Существует еще одна форма оператора DO, которая 
относится только к последовательности операторов, образующих 
единую группу. Вот пример такой группы: 

метка 1; DO; 

метка 2; END метка Ц 

Как и раньше, метки необязательны. 




Операторы в группе DO выполняются только один раз. Использо¬ 
вание группы DO станет понятным после рассмотрения оператора IF. 

Оператор IF. В Фортране существуют два оператора IF: ариф¬ 
метическое IF и логическое IF. В ПЛ/1 имеется только один оператор 
IF, но его использование значительно расширено. 

Оператор IF THEN. Основная форма такого оператора следующая: 
необязательная метка (метки): IF логическое выражение THEN необязательная 
метка (метки): один оператор ПЛ/1 или оператор ЕЮ; 

Этот оператор выполняется аналогично логическому оператору 
IF в Фортране. Это значит, что если логическое выражение истинно, 
то сначала выполняется оператор, следующий за THEN, или оператор 
DO, а затем следующий оператор ПЛ/1 в порядке очередности, если 
в конструкции THEN не будет осуществлена передача управления на 
другой оператор. Если логическое выражение ложно, то конструкция 
THEN пропускается, а выполняется следующий за конструкцией 
THEN оператор. Эту операцию иллюстрирует блок-схема, представ¬ 
ленная на рис. 2.1. 


\ Истинно 

[ выполнить опера\ 

ТОР(Ы) THE V 1 

(Если нет передачи управлений. 

В приведенном операторе) 

I Оператор ; следующий за нонструнцией THEN 

Рис. 2.1. 


ПЛ/1 

IF А < В THEN Х=А+В; 

Y = 3*X: 

*F А < = В THEN DO; 

X = A+Bj 
C=D+E; 

EHD; 

F = G+H; 

Оператор IF — THEN—ELSE. Общая форма оператора имеет 
вид: 

необязательная метка (метки): IF логическое выражение THEN 
необязательная метка (метки): 

один оператор ПЛ/1 или оператор DO 
ELSE необязательная метка (метки): 
один оператор ПЛ/1 или оператор DO; 


Пример 

Фортрап 

IF (A. LT. В) Х=А+В 
Y= 3.* X 

IF (A. GT. В) GO ТО 35 
Х = А+В 
C=D+F 
35 F = G+H 
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Если логическое выражение истинно, то выполняется конст¬ 
рукция THEN (которая может состоять из одного оператора или груп¬ 
пы операторов), а вся конструкция ELSE пропускается. Затем будет 
выполняться первый оператор, непосредственно следующий за конст¬ 
рукцией ELSE, если в конструкции THEN не было передачи управ¬ 
ления на другой оператор. Если логическое выражение ложно, то 
вся конструкция THEN пропускается, а выполняется конструкция 
ELSE. Эту операцию иллюстрирует блок-схема, представленная на 
на рис. 2.2. 



Рис. 2.2. 


Пример 

Фортран 
IF (А) 2, 2, 3 

2 Х=2.* А ’ 
Y=A+X 
GO TO 4 

3 Х = 3.* А 
Y=B + X 

4 Z = X + Y 


ПЛ/І 

IF А < = 0 THEN DO; 

Х=2* А; 


END; 


END; 


В конструкциях THEN и ELSE могут быть другие операторы IF. 
Например, оператор 

IF А > В THEN IF е < D THEN GO TO INCREMENT; 

построен правильно. Его можно записать следующим образом: 

IFA>B&C<D THEN GO TO INCREMENT; 
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Арифметический оператор IF Фортрана мог бы быть записан на язы¬ 
ке ПЛ/1 следующим образом: 

IF А С В THEN ОО TO LESS _ THAN; 

ELSE IF А > В THEN GO TO GREATER_THAN; 

ELSE GO TO EQUAL; 

Когда операторы IF вкладываются друг в друга таким образом, кон¬ 
струкция ELSE ассоциируется с вутренним оператором IF. Рассмот¬ 
рим следующие вложенные операторы IF: 

IF A = B THEN 
IF G < D THEN 
IF E>F THEN X=Y; 

ELSE Z=W; 

ELSE X=W; 
e=D+E; 

В этом примере первая конструкция ELSE связана с конструкцией 
IF Е >• F, а вторая конструкция ELSE связана с IF С<С D. Это ил¬ 



люстрирует блок-схема, представленная на рис. 2.3. Если логика 
программы требует, чтобы конструкции ELSE относились к пер¬ 
вому и второму IF, то нужно вставить пустой оператор ELSE следую¬ 
щим образом: 

1F А=В THEN 
IF е < D THEN 

IF Е > F THEN X=Y; 

ELSF; 

ELSE Z = W; 

ELSE X = W; 

6=D+E; 


Это иллюстрирует блок-схема на рис. 2.4. 
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Истинно 


ММ, 



Рис. 2.4. 


2.7. СПИСОК ВВОДА-ВЫВОДА 

В ПЛ/І существует несколько видов операций ввода-вывода. 
В этом разделе мы рассмотрим только LIST I/O с системой ввода с пер¬ 
фокарт и системой вывода на построчное печатающее устройство. 
INPUT (Ввод данных). Общая форма оператора ввода имеет вид: 

необязательная метка (метки): GET LIST (список имен переменных, разделенных 
запятыми); 

Пример оператора GET LIST 

GET LIST (A): 

GET LIST (А, В C); 

Bee 80 колонок перфокарты считываются одна за другой в непрерыв¬ 
ном потоке. Данные перфорируются как последовательность кон¬ 
стант, разделенных друг от друга по крайней мере одним пробелом или 
одной запятой. Внутри констант пробелы не допускаются. Сканиро¬ 
вание вводимых данных продолжается до тех пор, пока список не бу¬ 
дет исчерпан. 

Например, если GET LIST (А, В); необходимо выполнить в про¬ 
грамме пять раз, то все десять значений А и В можно отперфориро- 
вать на одной и той же карте, на десяти разных картах, по два числа 
на пяти перфокартах или любым другим методом. Очередность, в ко¬ 
торой данные занесены на перфокарты, очень важна, так как эта 
очередность определяет, какой переменной приписываются эти зна¬ 
чения. Если карты организованы так, как это показано на рис. 2.5, 
то ввод данных производится следующим образом: 



Врем: 


Значение А 


Значение В 


выполнения 


2 . 


2 


3 . 


4. 

6 . 

8 . 

10 . 


3 


5. 

7. 


4 

5 


9. 


Рис. 2.5, 
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Оператор GET LIST (А) считывает десять чисел, если размерность 
А в операторе DECLARE определена А (10). Если размерность А оп¬ 
ределена А (5, 10), то считывается 50 элементов. Индексированные 
переменные заносятся в той последовательности, в какой они хранят¬ 
ся в памяти машины, т. е. быстрее всего изменяется последний ин¬ 
декс. Заметьте, что этот порядок прямо противоположен порядку, 
принятому в большинстве трансляторов Фортрана. Как и в Фортра¬ 
не, в ПЛ/1 список входных данных может задаваться с помощью 
циклов. Например, 

GET LIST (( A(R) DO R= 1 TO 50)); 

GET LIST f«A(K J) DO K=I TO 5) DO J = 1 TO 10»: 

Заметьте, что в последнем примере порядок считывания аналогичен 
порядку считывания данных в Фортране. 

GET L*ST (М, N((A(L. J) DO J=1 TO M) DO L=N TO 1 BY-1)); 

GET LIST (((A(I J) DO 1=1 TO J) DO J=1 TO 10»; 

Список данных в операторах GET или PUT должен быть заключен 
в круглые скобки. У начинающих программистов наиболее распрост¬ 
раненная ошибка заключается в том, что они опускают одни круг¬ 
лые скобки в примерах типа 

GET LIST ((А(I) DO 1=1 ТО N)); 

OUTPUT (Вывод данных). Общая форма оператора вывода имеет 
вид: 

необязательная метка (метки); PUT LIST (список данных, который должен быть 
выдан на печать; каждый символ разделен запятой); 

Список данных, который выдается на печать, может состоять 
из переменной, выражения или строки символов. Строка символов, 
выдаваемая на печать, должна, открываться и заканчиваться апост¬ 
рофом. В список могут входить также имена массивов и циклы; они 
считываются из памяти машины в том же порядке, что и в операто¬ 
ре GET LIST. 

PAGE (страница), SKIP (пропуск), LINE (строка). Команда LIST 
управляет расположением данных вывода, но в ограниченной 
степени. Выходные данные пересылаются непрерывным потоком и 
печатаются строка за строкой. Транслятор определяет нужный фор¬ 
мат для этих данных. Число символов, которые могут быть напечатаны 
на одной строке, зависит от размера строки в данном устройстве. 
Существуют три вида форматов, употребляемых только для печати 
данных. Это PAGE (страница), SKIP (пропуск), LINE (строка). 
Они записываются между операторами PUT и LIST. Их функции 
сводятся к следующему. 

PAGE показывает, что печать должна начаться с первой строки 
следующей страницы. 

SKIP (w) показывает, что должно быть пропущено (w — 1) строк 
и что печать должна начаться на строке w. Индекс w может быть опу¬ 
щен и тогда используется просто SKIP. Это показывает, что печать 
должна начаться со следующей строки. Если w < 0, то печатающее 
устройство осуществит печать на предыдущей строке. Если значение 
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w превышает число строк, оставшихся на данной странице, то будут 
пропущены все строки этой страницы и будет использована первая 
строка следующей. 

LINE (w) показывает, что печать должна начаться со строки w 
текущей страницы. Если w — 0, то его полагают равным 1. Если 
печатающее устройство уже находится на строке w текущей страни¬ 
цы или за этой строкой, то пропускается вся страница, и печать про¬ 
изводится на первой строке следующей. Возврат на предыдущие 
строки в устройствах построчной печати невозможен. 

Заметьте, что формат SKIP определяет количество пропущенных 
строк, начиная с данного положения печатающего устройства, а фор¬ 
мат LINE — номер строки текущей страницы. 

Значение w может быть как константой, так и переменной, или 
выражением, которые могут быть преобразованы в целые десятичные 
числа до того, как будут выполняться SKIP или LINE. 

(В подмножестве языка ГОІ/1 значение w должно быть константой 
без згіака. В случае употребления LINE w должно быть меньше 256, 
а если оно равно нулю, то его полагают равным единице. Если w 
используется с форматом SKIP, то оно должно быть 0, 1, 2 или 3.) 

Если в списке выходных данных есть двоичные числа, то они сна¬ 
чала преобразуются в десятичные числа с фиксированной или пла¬ 
вающей точкой (в зависимости от их внутреннего представления), 
а затем печатаются в виде десятичных чисел. 

Следующие примеры иллюстрируют применение оператора PUT 
LIST: 

PUT LIST (A); 

ABC: PUT LIST (A, В, C); 

PUT PAGE LIST (‘THE ANSWER IS‘, X); 

PUT SKIP (2) LIST (((A(I, J) DO 1 = 1 TO IQ) DO TO 8)); 

PRINT: PUT PAGE LINE (6) LIST (‘HEADING '); 

Для иллюстрации применения форматов PUT, SKIP и LINE рассмот¬ 
рим следующую процедуру: 

ТІ: PROCEDURE OPTIONS (MAIN): 

DECLARE N FIXED BINARY REAL (15) INITIAL (5), 

X FLOAT DECIMAL REAL (6) INITIAL (2); 

PUT PAGE; 

PUT PAGE LIST (‘A‘)i 

PUT SKIP LIST (*B‘); 

PUT SKIP (3) LIST COJ 

PUT SKIP (N) LIST (‘D‘); 

PUT SKIP (N+X) LIST <‘E*); 

PUT PAGE LINE (30) LIST (‘F‘); 

PUT SKIP (0) LIST (*G«): 

PUT LINE ,(30) LIST (‘H') : 

PUT LIST (*I‘): 

END TI; 

При выполнении этой процедуры происходит следующее. 

1. Большинство трансляторов организуют печать выходных дан¬ 
ных с первой строки следующей страницы. Допустим, что у нас имен¬ 
но этот случай. Команда PUT PAGE; установит бумагу на первой 
строке следующей страницы. 
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2. Перейти к первой строке новой страницы и напечатать А. 

3. Перейти к следующей строке и напечатать В. 

4. Пропустить три строки и напечатать С, т. е. оставить пропу¬ 
щенными две строки, прежде чем напечатать С. 

5. Пропустить пять строк и печатать D, т. е. оставить пропущен¬ 
ными четыре строки. 

6. Пропустить семь строк и печатать Е, т. е. оставить пропущен¬ 
ными шесть строк. 

7. Перейти к 30-й строке на следующей странице и печатать F. 

8. Не допускать прогона бумаги перед печатью, т. е. напечатать 
на последней строке G. 

9. Перейти к первой строке следующей страницы и напечатать Н. 
При выполнении предыдущего шага мы находились на строке 30. 

10. Напечатать I в следующем за Н поле на той же строке, что и 
в шаге 9. 

COPY (Скопировать). Конструкция COPY может быть добавлена 
к команде ввода данных GET LIST. Она обеспечивает выдачу вход¬ 
ных данных без преобразований на стандартное печатающее устрой¬ 
ство. На каждой строке печатается одно значение. Например, коман¬ 
да GET LIST (А, В, С) COPY; обеспечит запись значений А, В и С 
в том виде, в котором оно было воспринято с носителя на устройстве 
ввода. В примерах, которые будут даны далее, конструкция COPY 
будет рассмотрена с целью показать, как будут использоваться при 
выдаче на печать данные ввода. (Конструкция COPY не допускается 
в подмножестве языка). 

Все операторы и конструкции, которые мы до сих пор рассматри¬ 
вали, теперь можно показать на примере законченных программ, 
записанных на языке ПЛ/1. Но прежде чем это сделать, следует ос¬ 
тановиться еще на двух конструкциях, которые окажутся необходи¬ 
мыми при написании программ. Это два оператора ПЛ/1 нового типа. 
В полном объеме они будут рассмотрены в одной из следующих глаз, 
и их употребление будет проиллюстрировано на примерах. 

Оператор ON ENDF1LE (при конце файла). Общая форма опера¬ 
тора имеет вид: 

ON ENDFILE (имя файла) оператор ПЛ/1) 

Оператор ПЛ/1 выполняется при чтении последней записи данных 
в указанном файле. Положение оператора ON ENDFILE не учитыва¬ 
ется, если он выполняется непосредственно перед считыванием по¬ 
следней записи данных. Программы, которые даны в настоящей кни¬ 
ге, выполнялись на машине ІВМ-360 при использовании устройства 
чтения с перфокарт как стандартной системы ввода (SYSIN). (В под¬ 
множестве языка ПЛ/1 после имени файла в качестве оператора бе¬ 
рется GO ТО.) 

CHECK (Контроль). Существует прекрасный метод для проверки 
программы, записанной на языке ПЛ/1, когда во время ее выпол¬ 
нения возникают ошибки. При команде (CHECK (список иден¬ 
тификаторов, разделенных запятыми)) перед меткой оператора 
PROCEDURE можно получить листинг с указанием, как идет вы- 
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полнение программы. Если метка оператора — один из идентифи¬ 
каторов списка данных, то происходит прерывание как раз перед 
выполнением этого оператора и его метка выдается на печать. Если 
имя переменной — один из идентификаторов, то происходит прерыва¬ 
ние всякий раз, когда меняется значение переменной и печатается 
идентификатор этой переменной и ее новое значение. В список данных 
для проверки могут быть внесены имена массивов. 

Следующий пример простой, но законченной программы поможет 
понятъ многие из рассмотренных ранее принципов построения про¬ 
грамм на ПЛ/1. 

Программа считывает произвольный список чисел и считает их 
сумму. Результат печатается в стандартном формате, зависящем от 
устройства печати. В нашем случае при решении задачи печать 
данных всегда начинается с новой страницы. Для того чтобы 
обеспечить печать с начала новой страницы, необходима команда 
PUT PAGE LIST. Самые левые числа в листинге используются 
транслятором для диагностики. 

/* CHAPTER #2 EXAMPLE #2*/1 
/* SAMPLE PROBLEM •/ 

1 E202: PROCEDURE OPTIONS (MAIN); 

2 DECLARE (SUM_OF_NUMBERS lNITIAL(O), A) REAL FIXED DECIMAL (7.2); 

3 ON ENDFILE (SYSTN) GO TO PUT; 

5 INPUT: GET LIST (A); 

6 SUM OF NUMBERS=SUM OF NUMBERS-)-A; 

7 GO TO INPUT; 

8 PUT: PUT LIST (‘SUM IS •, SUM_OF_NUMBERS); 

/* NOTICE THAT PUT IS USED Ш TWO WAYS */ 

9 END E202; 

The data used were: 123456789 —2 —45 53 75 
The sample output is 

SUM IS 126.00 

Комментарий к программе 
В начале программы 

/*Глава 2, пример 2*1 
I* Образец задачи*/ 

После оператора 8 

/* Заметьте, что PUT имеет два значения*/ 

Для того чтобы показать применение оператора CHECK в ПЛ/1, 
тот же самый пример выполняется с оператором 

(CHECK (INPUT, SUM _ OF_NUMBERS)): 

который добавляется к процедуре: 

Г CHAPTER #2 EXAMPLE #3 */ 

/* CHECK DEMONSTRATION */ 

1 (CHECK (INPUT. SUM_OF_NUMBERS))» 

Е2ѲЗ: PROCEDURE OPTIONS (MAIN); 

2 DECLARE (SUM_OF_NUMBERS INITIAL (0), A) REAL FIXED DECIMAL (7.2)1 

3 ON ENDFILE (SYSIN) GO TO PUT; 

5 INPUT; GET LIST (A); 

6 SUM_OF_NUMBERS=SUM_OF_NUMBERS+A; 

7 GO TO INPUT! 
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8 PUT: PUT LIST (‘SUM IS‘, SUM _°F NU M BERS); 

/* NOTICE THAT PUT IS USED IN TWO WAYS*/ 

9 END E203; 


INPUT . 

SUM_OF_NUMBERS =. 1 00; 

INPUT 

SUM_OF_NUMBERS= 3 00; 

INPUT 

SUM_OF_NUMBERS=> 6.00; 

INPUT 

SUM_OF_NUMBERS = 10.00s 

INPUT 

SUM_OF_NUMBERS = 16 00; 

INPUT 

SUM_OF_NUMBERS 21.00; 

INPUT 

SUM_OF_NUMBERS= 28 00; 

INPUT 

SUM_OF_NUMBERS = 36.00; 

INPUT 

SUM_OF_NUMBERS= 46.00; 

INPUT 

SUM_OF_NUMBERS= 43.00; 

INPUT 

SUM_OF_NUMBERS = —2 00; i 

INPUT 

SUM_OF_NU&№ERS= 61.00; 

INPUT 

SUM_OF_NUMBERS^ Г26.С0: 

INPUT 

SUM IS 126.00 


Комментарий к программе 

В начале программы 

/‘Глава 2, пример 3*/ 

/* Демонстрация оператора CHECK*/ 

После оператора 8 

/* Заметьте, что оператор PUT имеет два значения*/ 


2.8. ПРИМЕРЫ ЗАКОНЧЕННЫХ ПРОГРАММ НА ПЛ/1 

При ознакомлении со следующими примерами следует обратить 
внимание, как перфорируются операторы ПЛ/1. Каждая строка лис¬ 
тинга предоставляет одну перфокарту. Перфорировать карты подоб¬ 
ным образом необязательно, но это облегчает чтение программы. 
В частности, в этих целях в большинстве случаев оператор END, 
связанный с оператором DO, располагают непосредственно под со¬ 
ответствующим DO, а оператор ELSE, связанный с оператором 
THEN, — под соответствующим оператором THEN. Во всех случа¬ 
ях, кроме первого, значения входных данных печатаются с результа¬ 
тами вычислений как часть выходных данных. Все данные перфори¬ 
руются в форматах, описанных в разделе «PUT LIST». 
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Пример А 

Программа Е204 выдает на печать таблицу значений квадратов 
и квадратных корней целых чисел от 1 до 10. 

Заметьте, что собственно программа в основном состоит из одного 
оператора PUT. Эта программа выполняется на устройстве, позво¬ 
ляющем печатать пять выходных значений в строке. Количество 
чисел в строке определяется с помощью клавиш местного управления 
печатающего устройства. (Следует запомнить, что выходные данные 
представляют непрерывный поток информации.) Листинг программы 
и выходные данные приводятся далее. 

Вид таблицы зависит от того, какой размер строки необходим для 
решения задачи и какое устройство определяет положение выходной 
таблицы. ПЛ/1 может осуществлять управление форматом выходных 
данных. Таблица, состоящая из трех столбцов, читается легче. Это 
иллюстрирует простая модификация примера А: 


/* CHAPTER #2 EXAMPLE #4 */ 
/* SQUARE ROOT */ 

1 E2C4: PROCEDURE OPTIONS (MAIN); 

2 DECLARE X FLOAT REAL DECIMAL (74: 

3 PUT LIST «X, X*« 2. SQRT (X) DO X = 1 

4 END E204; 


-00 1.000000E- 
-00 9.000000E- 
-00 5.000000E- 
-01 2.449489E- 
■00 6.400000E- 
-00 1.000000E- 


/* CHAPTER #2 EXAMPLE #5 */ 
/• SQUARE ROOT */ 

1 E205: PROCEDURE OPTIONS (MAIN); 

2 DECLARE X FLOAT REAL DECIMAL <7)S 

3 DO X=1 TO 10; 

4 PUT SKIP LIST (X, X** 2, SQRT (X)); 

5 END; 


1.000000E- 
I 414213E- 
1.600000E- 
6.000000E- 
2.645751E- 
8. 100000E- 


00 I . 000000ЕН 
00 3.000000E- 
01 2.000000E- 
00 3.600000E- 
00 8 OOOOOOE- 
01 3 OOOOGOF- 


іо»: 


2.OOOOOOE + OO 
1.732050E + 00 
2.500000E + 01 
7.000000E + 00 
2.828427E + 00 
1 .000000E + 02 


I 000000E + 00 
2. OOOOOOE + OO 
3-OOOOOOE + OO 
4 000000E + 00 
5. OOOOOOE + OO 
6 OOOOOOE + OO 


I .OOOOOOE + OO 
4. OOOOOOE + OO 
9.000000E + 00 
1.600000E + 01 
2.S00000E + 01 
. 3.600000E + 01 
4.900000E + 01 
6.400000E + 01 
8. lOOOOOE + Ol 
1 .OOOOOOE + 02 


1 OOOOOOE +00 
1.414213E + 00 
1.732050E + 00 


2.449489E + 00 
2.645751E + 00 
2.828427E + 00 


4.000000E + 00 
4.OOOOOOE + OO 
2.236067E+ 00 
4.900000E + 
9.000000E + 

3. 162277E + 


Комментарии к программам 
Заголовок первой программы 
/* Глава 2, пример 4*/ 

/* квадратный корень*/ 

Заголовок второй программы 
/* Глава 2, пример 5*/ 

/* квадратный корень */ 

Пример Б 

В этом примере решается квадратное уравнение Ax a -j-Bx-[-C = 0. 
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Листинг исходной программы 


/* CHAPTER #2 EXAMPLE #6 •/ 

/• SOLUTION OF QUADRATIC EQUATION */ 

1 F206: PROCEDURE OPTIONS (MAIN); 

В DECLARE (А, В, C, DISG, E. X, ROOTI, ROOT2, F) REAL DECIMAL FLOAT (7)1 
8 ON ENDFILE (SYSIN) GO TO STOP: 

5 PUT LIST (‘SOLUTIONS OF QUADRATIC EQUATIONS")} 

6 IN: GET LIST (A, B, C)i 

7 PUT SKIP (2) LIST (A, B, £); 

8 IF A=0 THEN IF B = 0 THEN PUT SKIP LIST (‘NOT AN EQUATION')! 

11 ELSE DO; 

12 X = — СУВ; PUT SKIP LIST 

(‘LINEAR EQUATION —ANSWER^' ,X>; 


15 

16 
18 


26 

28 

29 


31 

32 

34 


END; 

ELSE DO; 

DISC=B*, 2-4*A.G E=—B/(2*A)J 
IF DISC=0 THEN DO; ROOTI, ROOT2 = E; 

PUT SKIP LIST (ROOTI, ROOT2K END; 
ELSE IF DISC > 0 THEN DO; F=SQRT (DIS6))/(2.A); 
ROOTI = E+F; ROOT2 = E-F; 

PUT SKIP LIST 
(ROOTI. ROOT2); 

END; 


ELSE DO; 

F=SQRT (-D1S®)/(2.A): 
PUT SKIP LIST (E, F); 
PUT SKIP LIST (E, — F); 
END; 


END; 


36 GO TO IN; 

37 STOP: END E206; 


Комментарий к программе 
Заголовок программы 

/* Глава 2, пример 6*/ 

/* Решение квадратного уравнения*/ 

Замечания 

1. В программу специально не включены комплексные числа. Решение за¬ 
дачи с комплексными переменными дано далее. 

2. Программа может решить произвольное число различных уравнений и за¬ 
тем прекращает вычисления. STOP в этой программе ПЛ/1 представляет собой 
метку оператора, а не коман (у. 

3. Оператор 6 считывает значения коэффициентов, а оператор 7 печатает их. 

4. Если А и В равны 0, то печатается сообщение и затем выполняется опе¬ 
ратор 3 . 

5. Если А = 0, а В ф 0, то, начиная с операюра 7, выполняется группа DO, 
а затем выполняется оператор 36. 
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6. Если.Д. 5* 0, то выполняется конструкция ELSE группы DO. В этом слу¬ 
чае применяется формула квадратного уравнения 

Y -В ■ ~Ѵ В 2 —4АС 
2А 2А 

а) Группа DO, начиная с оператора 18, решает вариант с двумя равными кор¬ 
нями. Отметьте, что в этой строке употребляется множественный оператор при¬ 
сваивания. (В подмножестве ПЛ/1 употребление множественных операторов при¬ 
сваивания не допускается.) 

б) Начиная с оператора 23 группа DO решает вариант с двумя действитель¬ 
ными неравными корнями. 

в) С оператора 30 группа DO решает вариант с сопряженными комплексными 
корнями. 

7. Оператор 36 передает управление оператору 6 для считывания коэффи¬ 
циентов нового уравнения. Если больше данных не поступает, го управление 
сразу же передается на оператор 37, и выполнение программы прекращается. 


Вывод данных 

Решение квадратных уравнений 


о. оаовооЕ + во 

NOT AN EQUATION 
0. OOOOOOE + OO 

LINEAR EQUATION—ANSWER = 

1.000000E + 00 

І.000000Е + 00 

1 .OOOOOOE + 00 

I. OOOOOOE + OO 

1 .OOOOOOE + OO 

O.OOOOOOE + 00 

0. OOOOOOE + OO 

1 .OOOOOOE + OO 

1.000000E + 00 

1 .OOOOOOE + OO 


0.OOOOOOE + OO 
5. OOOOOOE + OO 

e. ooooooE+oo 

— 1.OOOOOOE + OO 

— 2.OOOOOOE + OO 
1. OOOOOOE + OO 
0. OOOOOOE + OO 
1.000000Б+00 

— 1 .OOOOOOE + OO 

— 2. OOOOOOE + OO 
1 .OOOOOOE + OO 

— 1.000000E+00 


2 OOOOOOE + OO 

3.00 0000E + O0 
— 5.99 9S99E—01 
- 1 .OOOOOOE + OO 

1.000000E + 00 
1.000000Е + ѲО 

2.0 tOOOOE + O 


Замечание 

Вторая строка: не решение 

Четвертая строка: линейное уравнение — ответ = 

Далее приводится модификация предыдущей программы с комп¬ 
лексными числами. Логическая схема построения программы анало¬ 
гична только что рассмотренной. (В подмножестве ПЛ/1 комплексная 
арифметика не допускается.) 


Листинг исходной программы 


/• CHAPTER #2 EXAMPLE #7 •/ 

/* SOLUTION OF QUADRATIC EQUATION •/ 

1 E207: PROCEDURE OPTIONS (MAIN); 

2 DECLARE (A, B, G, DISG. E, X) REAL DECIMAL FLOAT (7), 

(ROOT1. ROOT2, F) COMPLEX DECIMAL FLOAT (7)5 

3 ON ENDFILE (SYSIN) GO TO STOP; 

5 PUT LIST (‘SOLUTIONS OF QUADRATIC EQUATIONS-)S 

6 IN: GET LIST (A, B, Q; 





32 

34 

35 


PUT SKIP(2) LIST (A. B, Q; 

IF A = 0 THEN IF B = 0 THEN DO; 

PUT SKIP LIST ('NOT AN EQUATION 1 )» 

GO TO IN; 

END; 

ELSE DO; 

X = -G/B; PUT SKIP LIST 

(‘LINEAR EQUATION -ANSWER = ‘, X); 

GO TO IN; 

END; 

ELSE DO; 

DISC = B,* 2—4„A*G; E— ВД2.АН 

IF DISG=0 THEN DO; ROOT1, ROOT2 = E; GO TO OUTPUT; END; 
ELSE IF DISC > 0 THEN DO; F=SQRT (DISO)/(2 * A); 

ROOTl = E+F; ROOT2 = E — F; 
GO TO OUTPUT; END; 

ELSE DO; 

F*=»SQRT <—DtSC)/<2 .A). Us 


36 ROOT1 =» E + F: ROOT2 = E —Fj 

38 GO TO OUTPUT; END; 

40 END; 

41 OUTPUT: PUT SKIP LIST (ROOTl. ROOT2); 

42 GO TO IN; 

43 STOP: END E207; 


Комментарий к программе 
Заголовок к программе 

/* Глава 2, пример 7*1 

I* Решение квадратного уравнения */ 

Замечания 


1. При выполнении программы Е207 данные те же что и при выполнении 
варианта E206, описанного ранее. 

2. OUTPUT в операторе 41 представляет собой метку, присвоенную програм¬ 
мистом. Метка OUTPUT не имеет ничего общего с тем, что оператор 41 является 
также оператором, обеспечивающим вывод данных программы. 

3. Начиная с оператора 34 группа DO становится частью программы, вы¬ 
числяющей сопряженные комплексные корни. Заметьте, что выражение в пра¬ 
вой части оператора 35 становится мнимым при умножении на 1. Цифра 1 перед 
символом I обязательна. 


OUTPUT (Вывод данных) 

Решение квадратных уравнений 

О.ООООООЕ + ОО О.ООООООЕ + ОО 

NOT AN EQUATION 
О.ООООООЕ + 00 5.000000E + 00 

LINEAR EQUATION—ANSWER= 
1.000000E+00 О.ООООООЕ + ОО 

1. OOOOOOE + 00 + 0.0000O0E + 001 


2.000000E+00 


3.000000E + 00 

— 5.9999Э9Е — 01 

— 1.000000E + 00 

— 1.000000 + 00 + 0. OOOOOOE + 001 
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l.OOOOOOE + OO 

1. OOOOOOE + 00 + 0. OOOOOOE + 001 
l.OOOOOOE + OO 

0. OOOOOOE+ 00— 1 .OOOOOOE + 001 

2. OOOOOOE+ 00 

1. OOOOOOE + 00 - 1. OOOOOOE + 001 

Замечания 

1. Обратите внимание на форму печати комплексных констант. 

2. Для мнимой части варианты с вещественными равными корнями и ве¬ 
щественными неравными корнями печатаются как комплексные числа в нулем. 

Пример В 

Программа Е208 считывает парами положительные целые числа 
до тех пор, пока данные не перестанут поступать и для каждой пары: 

а) печатает пару считанных чисел; 

б) печатает все положительные целые числа, на которые делится 
первое число, т. е. находит делители первого числа; 

в) определяет делители второго числа; 

г) находит самое большое положительное целое число, которое 
является делителем для обоих чисел, т. е. находит наибольший об¬ 
щий делитель. 

Листинг исходной программы 

/* CHAPTER #2 EXAMPLE #8 */ 

/* GREATEST 60MM0N DIVISOR •/ 

1 E208: PROCEDURE Oi-TiONS (MAIN); 

2 DECLARE (M, MM, N. NN, II, GSD) FIXED DECIMAL REAL (5.0). ' 

(I. IJK) BINARY FIXED REAL (16,0); 

3 ON ENDFILE (SYSIN) GO TO STOP; 

б I —OB; 

6 LOOP: I = I + IB; 

7 GET LIST (M, N)J 

8 PUT SKIP (4) LIST (‘DATA CARD* .1, »:■ ,M, N)J 

9 MM = M; NN = N; 

11 A: DO 1JK=1. 2; 

12 PUT SKIP LIST (‘DIVISORS OF* ,MM, *;■); 

13 DO 11=1 TO MM/2. MM; 

14 IF MOD (ММ, II) =0 THEN DO; 

16 PUT LIST (II» 

17 IF MOD (NN, II) = 0 THEN GGD=II; 

19 END; 

20 END; 

21 MM=N; NN=Mj 

60 


1.000000E+00 —2. OOOOOOE+ 00 

1. OOOOOOE+ 00 + 0 . OOOOOOE + 001 
1 .000000E + 00 0 . OOOOOOE+ 00 

0. OOOOOOE + 00 + 1. OOOOOOE + 001 
1 .000000E + 00 — 2 . OOOOOOE + 00 

1 .OOOOOOE + OO+ 1 .OOOOOOE + OOl 






23 END A: 

24 PUT SKIP LIST (’GREATEST COMMON DIVISOR— ,GCD)i 

25 GO TO LOOP; 

26 STOP: END E208) 

Комментарий к программе 
Заголовок программы 

/* Глава 2, пример 8*/ 

I* Наибольший общий делитель 

На рис. 2.6 приведена блок-схема для этой программы, а далее — 
вывод данных. 



Рис, 2.6. 
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Перевод текста 

DATA CARD — данные, считанные с карты, DIVISOR OF — делители, 
GREATEST COMMON DIVISOR — наибольший общий делитель. 


Пример Г 

Программа на с. 64 намеренно дана с ошибками, для того чтобы 
показать, как важно быть крайне осторожным при объявлении пере¬ 
менных в программе. 

В результате выполнения третьего оператора получается 0, 
а в результате работы четвертого — 33333. Эти операции выполня¬ 
ются так же, как и в Фортране*. Ситуация (NOFIXEDOVERFLOW) 
в операторе 7 до сих пор не рассматривалась. Она служит для пред¬ 
отвращения переполнения, что привело бы к прекращению выполне¬ 
ния программы. Выражения такого типа мы обсудим в главе 7. Пе¬ 
ременные Y и Z не включены в оператор DECLARE. Следовательно, 
система определяет их по умолчанию. Это REAL DECIMAL FLOAT 
(6) (вещественное десятичное число с плавающей точкой (6)). 


* Разные результаты при выполнении одной и той же операции над одними 
и теми же числами получаются потому, что форматы результатов различны. 
N — это целое двузначное число, а X — десятичное число с 14 знаками после де¬ 
сятичной точки. — Примеч. пер. 
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Правила по умолчанию будут рассмотрены в следующей главе. 
Разница в результатах для Y и Z вызвана тем, что константы 
имеют точность, с которой они объявлены, в то время как формат ре¬ 
зультата деления типа FIXED определяется форматом аргумента, 
имеющим максимальную точность. 

Значение Y получают следующим образом: 

1 имеет точность (1,0) 

3 имеет точность (1,0) 

1/3 = 0.33333333333333 имеет точность (15,14) 

25 имеет точность (2,0) 

25 + 1/3 = 5.33333333333333 имеет точность (15,14) (отбрасы¬ 
вание производится с левой стороны) 

Результаты Y хранятся в форме числа с плавающей точкой. 
Значение Z получают следующим образом: 

01 имеет точность (2,0) 

3 имеет точность (1,0) 

01/3 = 00.3333333333333 
25 имеет точность (2,0) 

25 + 01/3 = 25.3333333333333 имеет точность (15,13) 

Результаты Z хранятся в форме числа с плавающей точкой. 
Оператором 11 получено правильное значение, поскольку BIN 
было объявлено BINARY (двоичный), а десятичное число 1 было 
преобразовано в двоичное во время трансляции. Оператор 13 не тре¬ 
бовал, чтобы константа была преобразована во время трансляции, 
он выдает тот же результат. 

Комментарий к программе (на с. 64) 

Заголовок программы 

/* Глава 2, пример 9*/ 

/* Некоторые обычные ошибки*/ , 

После оператора 2 

/* Усечение при делении целых чисел*/ 

После оператора 6 

/* Деление при получении результата о фиксированной запятой при не¬ 
ожиданном переполнении или усечении*/ 

После оператора 10 

/* Ошибка в присваивании идентификатора В двоичным константам */ 

Пример Д 

Магический квадрат представляеГ собой квадратный массив 
с п X п отдельными положительными числами, основным свойством 
которых является то, что сумма п чисел, лежащих на любой гори¬ 
зонтальной, вертикальной или основной диагональной линии, всег¬ 
да одинакова. В магическом квадрате 5 2 = 25 элементов: 


25 

2 


18 


9 


10 

12 

19 

21 

3 



4 


6 


23 

5 


7 

14 

16 


17 

24 


15 


8 
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1,1 

1,2 

ч 

2,1 

2,2 

2,3 I 

3,1 

32 

33 1 


Сумма всех чисел в горизон¬ 
тальных, вертикальных рядах и 
по диагонали равна 65. Для 
данного п существует много воз¬ 
можных решений. Далее опи¬ 
сана процедура для конструи¬ 
рования магического квадрата 
только с нечетными значения¬ 
ми п. Для того чтобы иметь 
возможность показать место 
числа внутри квадрата, изобра¬ 
зим квадрат п X п, как это по¬ 
казано на рис. 2.7. 

Алгоритм для получения магического квадрата п X п для нечет¬ 
ных целых чисел лучше показать на блок-схеме. Приведенная на с. 
65 программа написана для случая, когда п — 3. 

Комментарий к программе (на с. 65) 


из 


ѳ 


Рис. 2.7. 


Заголовок программы 

/* Глава 2, пример 10*/ 

/* Магический квадрат*/ 

После оператора 2 

/* Поместить начальное значение целого числа в среднюю строку последнего 
столбца массива*/ 

После оператора 5 

*/ Запомнить адрес последней заполненной ячейки квадрата в PREVX а 
PREVY*/ 

Перед оператором 8 

/* Приращение значения переменной INTEGER*/ 

После оператора 9 

/* Найти адрес следующей ячейки квадрата для переменной INTEGER, 
прибавить 1 к каждому из предыдущих индексов*/ 

Перед оператором 13 

/* Если X и/или Y больше чем N, принять их равными 1*/ 

Перед оператором 17 

/* Проверить, заполнена ли новая ячейка квадрата при выполнении преды¬ 
дущего шага. Если нет, то поместить в него текущее значение переменной 
INTEGER*/ 

После оператора 17 

/* Если ячейка занята, поместить значение переменной INTEGER в ячейку 
квадрата A (PREVX, PREVY — 1)* / 

, После оператора 23 

/* Выдать на печать магический квадрат* / 

Блок-схема к этой программе представлена на рис. 2.8. 


Пример Е 

Программа на с. 68 считывает матрицы А (2 X 3) и В (3 ѵ 4) и 
печатает их произведение в виде матрицы С (2 X 4). 

Матрица — это прямоугольный массив чисел. В нашей программе 
входными данными служат матрицы: 


/2 4 6\ 

15 

43 

85 \ 

( 4 6 ) В = | 12 

42 

73 

46 I 

ІЗ 5 7) 1 2 

5 

32 
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CHAPTER #2 EXAMPLE #11 


/• MATRIX MULTIPLICATION*/ 

1 E2U:PROCEDURE OPTIONS (MAIN); 

2 DECLARE <A<2,3). B(3, 4) (5(2,4) INITIAL «8)0» REAL DECIMAL FIXED (C)| 
/• READ VALUES OF MATRICES ‘A‘ AND -B*. •/ 

3 GET LIST (A, B); 

/• MULTIPLY MATRIX 'A 1 BY MATRIX -B< AND PLACE THE RESULTS IN MATRIX C '•/ 

4 LOOP:DO X=1 TO 2; 

5 DO Y = 1 TO 3; 

6 DO Z= I TO 4> 

7 C(X. Z)=A(X, Y)*B(Y, Z) + C(X. Z); 

8 END LOOP; 

/• PRINT MATRIX ‘C‘ •/ 

11 PUT LIST ('THE PRODUCT OF THE 2X3 MATRIX "A" AND THB 3X4 

MATRIX “B-<* ); 

12 PUT SKIP LIST (MS THE 2X4 MATRIX •*0‘* PRINTED BELOW* 

13 PUT SKIP (3) LIST ((C(l . I) DO 1=1 TO 4»; 

14 PUT SKIP LIST (<C(2.I) DO 1=1 TO 4)); 

15 END E211J 


THE PRODUCT OF THE 2X3 MATRIX ••A" AND THE 3X4 MATRIX “B" 
IS THE 2X4 MATRIX •& PRINTED BELOW 

84 228 670 360 

110 290 718 «92 


Для того чтобы получить элемент строки і столбца / в матрице про¬ 
изведения, необходимо вычислить сумму произведений соответст¬ 
вующих элементов строки і в матрице А и столбца j в матрице В. 
Например, число 718 находится во второй строке третьего столбца 
матрицы С. Для получения этого результата с элементами второй 
строки матрицы А (3 5 7) и третьего столбца матрицы В (43 73 32) 
производятся следующие вычисления: (3) (43) + (5) (73) + (7) (32) = 
- 718. 

Элементы матриц А и В считываются оператором 3. Необходимо 
помнить, что последний индекс изменяется быстрее других; данные 
перфорируются на карту следующим образом: 2 4 6 3 5 7 12 

15 43 85 12 42 73 46 25 32 1. 






Комментарий к программе (на с. 68) 


Заголовок программы 

/* Глава 2, пример 11*/ 

/* Умножение матриц */ 

После оператора 2 

/* Считать значения матриц Л и В"/ 

После оператора 3 

/* Умножить матрицу А на матрицу В и поместить результаты в матрицу С*/ 
После оператора 8 

7* Печать матрицы С*/ 


Перевод заголовка результата 

Произведение матрицы А (2X3) и матрицы В (3X4) равно матрице С (2X4), 
приведенной ниже. 


2.9. УПРАЖНЕНИЯ 

Упражнения, данные в этом разделе, помогут понять многие 
новые идеи ПЛ/1, о которых говорилось в данной главе. Упражнения 
делятся на два раздела. Первый состоит из коротких вопросов, а вто¬ 
рой— из четырнадцати задач для программирования. Прежде чем 
перейти к изучению следующей главы, необходимо выполнить пер¬ 
вую группу упражнений полностью, а затем написать несколько 
программ из второго раздела и, если это будет возможно, пропустить 
эти программы на вычислительной машине. 

По упражнениям необходимо написать минимум пять программ: 

первая программа — упражнение 1 или 2; 

вторая программа — упражнение 3, 4, 5, 6 или 7; 

третья программа — упражнение 8, 9 или 10; 

четвертая программа—упражнение 11, 12 или 14; 

пятая программа — упражнение 13. 

Короткие упражнения 

1. Какие из указанных меток пригодны для оператора PROCEDURE? 

а) 27 

б) PROBLEM _27 

в) END 

г) # 27 
Д) Р27 

2. Какие из указанных идентификаторов пригодны для операторов ПЛ/1 и 
не пригодны в качестве меток для оператора PROCEDURE? 

а» F (X) 

б) START 

в) DO AGAIN 

г) THE __ CALGULATED_VELOCITY_IS 

Д) SIN 

69 


3. Какие из следующих законченных операторов ПЛ/1 правильны? Если опе¬ 
раторы содержат ошибки, попытайтесь их исправить. 

а) IF X+Y<X — 4 THEN GO TO BEGIN; 

б) VELOCITY=RATE* flM; 

в) START£END; 
r) ADD: A+B=C: 

д) DO C— 1, 10 TO D* E—4; 

е) DISC = B»* 2—4A* C; 

ж) PUT SKIP (4) LIST X, Y. Z; 

з) CHECK (SUM, X, Y); #1; PROCEDURE OPTIONS MAIN; 

и) ELSE; 

к) $ 10.00: CHANGE_FOR_TEN= 10.00—COST; 

л) A, B, C=A + B+C; 

4. Запишите в наиболее простой форме оператор ПЛ/1, который установит 
X = 5, если А и В имеют один и тот же знак, или X = 4, если А и В имеют про¬ 
тивоположные знаки или равны 0. 

5. Проанализируйте следующие сегменты программы: 

DECLARE (A FIXED (2), В FIXED (4.2), G FLOAT (7)) REAL DECIMAL; 

GET LIST (А, В, C); 

а) Если на карте отперфорированы данные: 

12345 12345 12345 

то какое значение примут переменные А, В, С после выполнения оператора GET? 

б) Какое значение примут переменные А, В, С после выполнения оператора 
GET, если данные отперфорированы следующим образом: 

•12345 ■12345 -12345 

6. Проанализируйте следующий сегмент программы: 

DECLARE (A FIXED (4). В FIXED (6,2)) BINARY REAL: 

GET LIST (A, B); 

а) Какие значения примут переменные А и В после выполнения оператора 
GET, если данные на карте отперфорированы так: 

15 7.75 

б) Если сразу же за оператором GET следует оператор PUT LIST (А, В); 
что будет выдано на печать? 

в) Ответьте на вопрос пункта а), если данные отперфорированы на карте 20 

20 

г) Ответьте на вопрос пункта б), если данные отперфорированы на карте 20 

7. Сколько строк выходных данных будет отпечатано следующими сегмен¬ 
тами программы: 

а) DO X=.l BY .5 ТО 5; 

Z=SQRT (X); 

PUT LIST (Z); 

END; 

б) DO X=1 BY .5 TO 5; 

DO Y=10 TO 7 BY-I; 

DO Z = 2 TO 1 BY—.1; 

A=SQRT (X+Y+Z); 

PUT SKIP LIST (A); 

END; END; END; 

■) DO X=1 TO 100 WHILE (Z< = 5); 

Z=SQRT (X); 

PUT SKIP LIST (Z); 

END; 


70 



8. Расставьте круглые скобки в следующих выражениях ЛЛ/1, чіобы пока- 
вать последовательность их выполнения; 

а; А**В* 2-f3.456»Y 

б) А + В*С— D/F 

в) А=В I А<0 &—, (В—,<С** 2) 

г) А**В**6— D= А* В/С 


9. Какие круглые скобки в приведенных выражениях можно снять, не из¬ 
менив значения этих выражений? 

а) (А + В)/0 

б) A-HB/G) 

в) —I (—I (А<В) I (0 = 0)) 

г) (A+B)-(C+D) + 2* Е 

д) (А+В)+((С+0)* 2* Е) 

10. Нарисуйте блок-схемы, объясняющие употребление следующих IF: 

а) IF А=в THEN IF C=D THEN W=X; ELSE W=Y; ELSE W = Z; 

б) IF A = B THEN IF C=D THEN W=X; ELSE W=Y; 

B) IF A=B THEN IF C = D THEN W = X; ELSE; ELSE W = Y; 

Г) IF A = B THEN W = X; ELSE IF G=D THEN W = Y; ELSE W = Z; 

И. Если A = 1, B= 6, a D=8, какие из приведенных выражений будут 
истинными? 

а) (А<В) I (D=0) 

б) -1 <А>В) & (D><3) 

В) А>В А — і D>G 

П А<В I А> = В А А=А 

д) 2* A + B = D|D-C<B-A 

12. Написать сегмент программы чтения произвольного списка чисел; сумму 
положительных чисел хранить в SUM_POS, сумму отрицательных—в SUM. N EG; 
подсчитать, сколько нулей содержится в списке. 

13. Если вам нужно записать программу, которая будет считывать оценки 
двадцати пяти студентов во время приема экзаменов,вычислять их средний балл, 
а затем выдавать на печать их оценки и средний балл, каким образом вы объявите 
идентификаторы оценок и среднего балла? Допустим, что оценки будут опреде¬ 
ляться целыми числами от 0 до 100. 

14. Допустим, что программа сформировала список из N чисел в возрастаю¬ 
щем порядке. Они хранятся в А(1), А (2). A (N). Н апишите сегмент программы 

таким образом, чтобы выдать эти числа на печать, каждое на отдельной строке, 
начиная с новой страницы, но в убывающем порядке. 

Задачи для программирования 

1. Напишите программу для вычисления объема шара. Величина радиуса 
считывается с перфокарты данных, а печатаются радиуо и вычислительный 
объем. (Объем шара равен 4.1888R 3 .) 

2. Напишите программу нахождения гипотезы любого прямоугольного тре¬ 
угольника. Значения длин двух сторон считываются с перфокарты данных. Эти 
значения и вычисленное значение гипотенузы выдаются на печать. (Квадрат ги¬ 
потенузы прямоугольного треугольника равен сумме квадратов катетов.) 

3. Пары чисел, хи у, отперфорированы на картах данных. О гом, сколько 
пар чисел должно быть считано, никакой информации нет. Предусмотриге чте¬ 
ние этих чисел и вычисление суммы всех значений х, суммы всех значений у, 
суммы квадратов значений х, суммы произведений каждой пары хи у, среднее 
арифметическое значений х и среднее арифметическое значений у. Среднее ариф¬ 
метическое находят делением суммы чисел на количество чисел. Хранить все 
значения х и у не нужно. Выдайте на печать все указанные результаты. 
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4. Напишите программу чтения списка чисел и предусмотрите выдачу на пе¬ 
чать самого большого и самого маленького числа в этом списке. О том, сколько 
чисел содержится в списке, нет никакой информации, за исключением того, что 
есть по крайней мере одно число. 

5. Напишите программу вычисления л до 15-го десятичного знака. 

Значение л можно получить с любой требуемой степенью точности с помощью 
следующего ряда: 



Обратите внимание на то, что в этой формуле наблюдается следующая законо¬ 
мерность: 

второй член равен первому члену, умноженному на (1/2)( 1/3) (1/2) 2 ; 

третий член равен второму члену, умноженному на (3/4)(3/5)(1/2) 2 ; 

четвертый член равен третьему члену, умноженному на (5/6)(5/7)(1/2) 2 ; 

пятый член равен четвертому члену, умноженному на (7/8)(7/9)(1 /2) 2 и т. д. 
(Будьте очень внимательны при вычислении элементов ряда.) 

6. Последовательность чисел Фибоначчи записывается следующим образом: 
1, 1, 2, 3, 5, 8, 13, .... где каждое следующее число после первых двух является 
суммой двух предыдущих чисел. Напишите программу для вычисления и печати 
списка по крайней мере двадцати чисел этой последовательности. 

7. (Составление таблиц счетов вкладчиков). Напишите программу, которая 
будет считывать данные в следующем порядке; сумма вклада в долларах и центах; 
годовой процент, выраженный десятичным числом; целое числб, показывающее, 
сколько раз в году выплачивался указанный процент; год внесения вклада; пер¬ 
вый и последний годы, за которые необходимо выдать баланс на печать; затем 
выдать на печать таблицу со всей требуемой информацией. Например, если дан¬ 
ные таковы: 10.00.05 4 1900 1960 1980, то необходимо выдать на печать таблицу 
данных с 1960 по 1980 г., показав ежегодный баланс суммы в 10,00 долларов, 
вложенной в 1900 г. при 5%, выплачиваемых ежеквартально. 

8. Эратосфен, греческий философ (230 г. до н.э.), составил алгоритм для на¬ 
хождения простых чисел. Этот метод называется «решетом Эратосфена». Простым 
числом называется целое число, которое не делится ни на одно число, кроме еди¬ 
ницы или самого себя. Чтобы найти все простые числа менее или равные 100 ме¬ 
тодом «решета», необходимо: 

а) составить следующий список чисел: 1 2 3 5 7... 99 (все нечетные целые 
числа < 100 после 2); 

б) исключить каждое третье число списка после цифры 3; 

в) исключить каждое пятое число после цифры 5, если оно не было исключено 
ранее; 

г) исключить каждое седьмое число после цифры 7, если оно не было ис¬ 
ключено раньше; 

8 продолжить этот процесс. 

ставшиеся числа простые. Напишите программу с помощью этого алгорит¬ 
ма для нахождения и выдачи на печать всех простых чисел, меньших или равных 
1000. 

9. Напишите программу, которая будет считывать произвольное количест¬ 
во пар чисел. Первое число каждой пары показывает сумму счета (в долларах 
и центах), второе — сколько по этому счету уже уплачено. Общая сумма сче¬ 
та не должна превышать 10 000 долларов. Для каждой пары чисел необходимо 
выдать на печать: 

а) сообщение ВСЯ СУММА ОПЛАЧЕНА (THE CORRECT AMOUNT WAS 
PAID) , если счет Оплачен верно, или 

б) сумму, которую следует оплатить (в долларах и центах), если оплачен не 
весь счет,' или 
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в) сколько необходимо выдать сдачи, если уплаченная сумма превышает сум¬ 
му счета. В каких купюрах и монетах лучше сдать сдачу (при наименьшем коли¬ 
честве купюр и монет), если имеются бумажные деньги достоинством в двадцать 
долларов, десять долларов, пять долларов и один доллар, а монеты — достоинст¬ 
вом в двадцать пять центов, десять центов, пять центов и один цент. Например, 
если необходимо сдать сумму в 1 доллар и 26 центов, то должно быть напечатано, 
что необходимо вернуть одну однодолларовую бумажку, одну двадцатипятицен¬ 
товую монету и одну одноцентовую монету. Нельзя выдавать 5 двадцатипяти¬ 
центовых монет и 1 монету в один цент или деньги в каких-нибудь других комби¬ 
нациях. 

10. Напишите программу для конвертирования долларов США в марки 
ФРГ, и наоборот. Ввод данных в программу производится в форме пар чисел. 
Если первое число пары — 1, то второе число показывает количество долларов, 
которое необходимо конвертировать в марки. Если первое число равно +1, то 
второе число показывает количество марок, которое следует конвертировать в 
доллары. Воспользуйтесь следующим соотношением: 1 марка = 0,2524 доллара. 

11. Составьте таблицу синуса. Входные данные должны состоять из двух 
десятичных чисел, которые показывают требуемый интервал; первое число пока¬ 
зывает угол в градусах и долях градуса первого значения таблицы, а второе — 
угол в градусах и долях градуса ее последнего значения. Разделите интервал от 
начального до конечного числа на 100 равных промежутков и обеспечьте печать 
таблицы с указанием угла в градусах, минутах и секундах, а также синус этих 
углов. ( Замечание . Встроенная функция SIN дает синус угла в радианах и долях 
радиана, в то время как встроенная функция SIND подсчитывает синус угла 
в градусах и долях градуса.) 

12. Случайные числа находят большое применение в статистике и модели¬ 
ровании. Идеальный генератор случайных чисел не должен повторять цикла не¬ 
зависимо от того, как долго он работает. Псевдогенератор случайных чисел может 
давать относительно большой цикл повторения, длина которого зависит от тре¬ 
бований решаемой задачи. Задача программиста — уравновесить усилия, необ¬ 
ходимые для получения случайного числа с длиной цикла повторения. Сущест¬ 
вуют много способов для получения псевдослучайных чисел. Далее дается описа¬ 
ние алгоритма для получения ряда четырехзначных псевдослучайных целых чи¬ 
сел. Вначале берем два произвольных четырехзначных целых числа. Одно из них 
(назовем его RAND) и будет первым случайным числом ряда. Второе (назовем 
его CONSTANT) будет взято для получения других случайных чисел. Для того 
чтобы вычислить второе случайное число, необходимо умножить число RAND 
на число CONSTANT, разделить полученное произведение на 10 и опустить циф¬ 
ру, стоящую после запятой.,Четыре цифры в младших разрядах полученного 
числа и будут новым случайным числом. 


CONSTANT = 7829 
(RAND)*(CONSTANT)= 10224674 

Разделим эго число на 10 и опустим цифру после запятой; в итоге получим 1022467. 
Четыре последние цифры дают число 2467. 

Для получения следующего случайного числа необходимо повторить опи¬ 
санный процесс, взяв то же самое число CONSTANT, а в качестве числа RAND — 
только что вычисленное случайное число. 

Напишите программу, которая будет считывать два целых числа N и 
CONSTANT, где N означает ряд случайных чисел, которые должны быть вы¬ 
числены, N < 500; a CONSTANT — число, которое необходимо для получения 
всех случайных чисел. За первое случайное число примите цифру 1306. После 
вычисления ряда случайных чисел N, выдайте их на печать. Затемопределите 
количество вхождений каждой цифры от 0 до 9 в полученные случайные числа. 
Обеспечьте печать таблицы, показывающей это распределение. 

Это не самый лучший алгоритм для получения случайных чисел. Далее бу¬ 
дут рассмотрены другие методы. 

13. Напишите программу, которая будет считывать список из двух или более 
чисел, а затем сортировать их и печатать в возрастающем порядке. Допустим 
(с целью использования оператора DECLARE), что список будет считываться до 
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тек пор, пока данные будут содержать не более 100 чисел. Одним из алгоритмов 
сортировки может быть следующий. 

Сравним два первых числа и, если эго необходимо, поменяем их местами так, 
чтобы второе число было больше первого. После проведения этой операции срав¬ 
ним второе и третье числа списка, и, если это необходимо, опять поменяем их мес¬ 
тами, чтобы наибольшее число стояло на третьем месте. Повторим эту операцию 
с третьим и четвертым числами и т. д. После того как мы пройдем подобным 
образом весь список, в конце списка окажется самое большое число. Затем повто¬ 
рим всю операцию с самого начала, не включая в повторение последнее число 
списка, так как уже установлено, что оно является самым большим в данном 
списке. Вовремя этой операции мы установим предпоследнее число списка. Про¬ 
цесс сравнения будет проводиться до тех пор, пока останутся только два числа. 
И как только они будут отсортированы, составление списка в возрастающем по¬ 
рядке будет закончено. 

В приведенный алгоритм легко внести некоторое усовершенствование. Если 
необходимо отсортировать список в сотню чисел, то получение списка этих чисел 
в возрастающем порядке с помощью метода, описанного выше, потребует девя¬ 
носто девг. гь просмотров. Но может произойти так, что сортировка закончится, 
например, на пятом просмотре и что никаких перестановок чисел больше не 
потребуется. Если полученная последовательность удовлетворяет программу, 
то процедура сортировки может быть закончена на этой стадии. Добавьте 
такую проверку к программе при каждом прохождении через список чисел. 

В следующих главах будут рассмотрены другие алгоритмы сортировки. 

14. Электронная вычислительная машина применяется для числового ин¬ 
тегрирования. Один из простых типов такого интегрирования — вычисление 
площади, ограниченной сверху кривой. Напишите программу, которая будет 
считывать не менее 2 и не более 500 точек (х, у) такой кривой. Входные данные 
упорядочены по возрастанию значения х. Вычислять площадь следует по форму¬ 
ле трапеций. Площадь трапеции равна полусумме двух параллельных сторон, 
умноженной на высоту. Трапеции образуются в результате соединения точен 
прямыми линиями. 


Пример. 


У 


fy- у 3 ) (*і. Уі), 1*г. Уз), (*з. Уз)- Данные 1 2 2 1 6 3. 




Рис. 2.9. 


Площадь = -і- ( Уі 4 . y t ) ( Xi — х г ) -f -j- (t/a-f- У») *») = 

= \ ( 2 + 1 ) ( 1 ) +X (1 + 3) (4) _ 4 + 8 = 4 ' 





Глава 3 


ОСНОВНЫЕ КОНСТРУКЦИИ ЯЗЫКА 


3.1. СИНТАКСИС 

В последующих главах много места уделяется деталь¬ 
ному описанию языка ПЛ/1 и возможностям его применения, в том 
числе методам обработки данных. Формальное описание языка— 
предмет совсем не новый. Западные языки изучаются со времен Древ¬ 
него Рима. Как правило, эти языки содержат набор символов, назы¬ 
ваемый алфавитом. Буквы алфавита группируются в слова, а слова 
организуются в предложения. В каждом языке существуют различные 
правила образования предложений и более сложных соединений слов. 
Синтаксис языка—это набор правил, по которым слова организуются 
в предложения. Грамматика языка имеет дело с классами слов и их 
отношениями друг с другом. Однако можно организовать слова точ¬ 
но в соответствии с правилами синтаксиса и грамматики, а предло¬ 
жение не будет иметь смысла. 

Точное понимание значений слов и языковых структур обеспечи¬ 
вается семантикой языка. 

Язык ПЛ/1 создан для связи человека с ЭВМ. Операторы ПЛ/1 
должны быть переработаны в код команд машины. Для генерирова¬ 
ния программы в кодах команд транслятор ПЛ/1 использует правила 
синтаксиса этого языка. В некоторых случаях в процессе трансляции 
с помощью семантики обеспечивается правильность рабочей програм¬ 
мы, даже если в исходной программе имелись неточности. Однако 
' для любого транслятора исправление ошибок исходной пограммы — 
трудная -задача. Для точного описания синтаксической структуры 
ПЛ/1 удобна некоторая система обозначений. В процессе создания 
машинных языков было развито несколько таких систем. Одна из наи¬ 
более известных — нормальная форма Бэкуса. Эту систему символов 
иногда называют метаязыком*. Такая система обозначений не явля- 


* Метаязыком называется язык, предназначенный для описания граммати¬ 
ки какого-либо языка. — Примеч. пер. 
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ется частью языка программирования. Она пригодна только для точ¬ 
ного описания конструкций, применяемых в описываемом языке. 
Система обозначений, принятых в настоящей книге, приведена далее. 
Необходимо помнить, что эта система может показывать только поря¬ 
док организации элементов, пунктуацию, которую можно применять, 
и т. п. Но с ее помощью нельзя описать смысл. Для его понимания 
необходимо знать семантику текста, написанного на языке ПЛ/1. 

Синтаксические обозначения. 1. В фигурные скобки { } за¬ 
ключается несколько выражений, из которых нужно сделать выбор. 
Внутри скобок эти выражения могут быть расположены вертикально 
или горизонтально. В последнем случае каждое выражение должно 
быть отделено друг от друга вертикальной чертой: 

I stream I {stream | record) 

1 record I 

2. В квадратные скобки [ ] заключаются произвольные операторы 
или выражения: 

[label:] 

NOLABEL] [VERIFY] 

3. Три точки ... указывают на повторение предыдущей конст¬ 
рукции один или несколько раз. 


3.2. ЭЛЕМЕНТЫ ОРГАНИЗАЦИИ ПРОГРАММЫ 

Набор символов. Основной элемент языка — набор символов. 
В языке ПЛ/1 два алфавита: из 48 символов и из 60 символов. Если 
устройства ввода-вывода позволяют, то предпочтительнее 60-сим¬ 
вольный алфавит, так как программы, составленные на нем, чита¬ 
ются легче. В настоящей книге используется 60-символьный алфа¬ 
вит. Полный список и сравнение этих двух наборов символов даны 
в приложении А. 

Перфорирование операторов ПЛ/1 и данных. Исходная программа 
на языке ПЛ/1 может быть отперфорирована в колонках 2—72 пер¬ 
фокарт. Колонки 1 и 73—80 обычно транслятором не сканируются. 
В отличие от Фортрана одна карта в ПЛ/1 не образует запись. В кон- 
"це каждого оператора ПЛ/1 стоит точка с запятой (;). Колонки 2—72 
сканируются транслятором в непрерывном потоке. Один оператор 
от другого обязательно отделяется точкой с запятой. Для того чтобы 
сделать программу более легко читаемой, можно воспользоваться 
пробелами. Программист может отперфорировать операторы исход¬ 
ной програмы в непрерывном потоке, по одному на каждой карте или 
любым другим способом. В колонках 73—80 часто дается нумерация 
последовательности карт, но они могут служить и для других целей. 

Как известно, пробелы помогают следить за программой. Но 
некото рых местах пробелы не разрешаются (например, в сложных 
символах, идентификаторах, арифметических константах и в строках 
бит). 
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Комментарии рассматриваются как пробел, они могут быть поме¬ 
щены в любое место, где разрешен пробел. Символы/* означают 
начало комментария, а */ — конец комментария. В комментарии мо¬ 
гут использоваться любые символы, например: 

/* THIS ENTIRE COMMENT COULD BE PLACED ANYWHERE 
A BLANK COULD OCCUR*/ (этот законченный комментарий мог бы 
быть помещен всюду, где может быть пробел). 

Возможность переработки инструкций и комментариев таким спо¬ 
собом называется кодированием в свободной форме. Язык ПЛ/1 
разрешает свободное кодирование. Преимущества формата такого 
типа, если они еще не стали очевидными, вскоре станут ясны. 

Использование колонок карт для перфорации операторов исход¬ 
ной программы на ПЛ/1. Колонка I не используется; колонки 2—72 — 
операторы ПЛ/1; колонки 73—80 не сканируются транслятором; они 
могут служить для любой цели, но обычно их используют для нуме¬ 
рации карт. 

Все 80 колонок могут служить для перфорации входных и выход¬ 
ных данных. Правильная организация данных на перфокартах зави¬ 
сит от команд ввода-вывода в данной программе. 

MAIN PROCEDURE (Главная процедура). Программа на ПЛ/1 
состоит из блоков операторов. Существуют два вида блоков: блок 
PROCEDURE и блок BEGIN (начало). Эти блоки могут быть вложены 
и/или транслироваться отдельно. Правила их обработки будут рас¬ 
смотрены в следующей главе. Любая программа на ПЛ/1 обязательно 
содержит блок PROCEDURE, который обычно определяют как главную 
PROCEDURE. Первый оператор в такой главной PROCEDURE 
должен иметь вид: 

label: PROCEDURE OPTIONS (MAIN); 

где метка является идентификатором, состоящим из букв, цифр и 
служебных символов. Идентификатор может содержать от одного 
до семи символов, причем начинаться он должен с буквы. (В подмно¬ 
жестве ПЛ/1 метка не может содержать более шести символов.) 

Последний оператор PROCEDURE должен иметь форму: 

(label!;...] END [labe!2]; 

Метка 1 в этом операторе может не использоваться (она будет опи¬ 
сана в следующем разделе). Метка 2 тоже может не использоваться. 
Но в противном случае это должна быть метка, данная PROCEDURE. 

Операторы ПЛ/1 грубо можно разделить на две категории: опе¬ 
раторы, содержащие информацию для транслятора, и операторы, ко¬ 
торые выполняются в процессе решения. Последние выполняются 
в порядке следования, если нет передачи управления на другой опе¬ 
ратор. Оператор END, стоящий в конце главной процедуры, закан¬ 
чивает выполнение программы. Операторы, содержащие информацию 
для транслятора, необходимы только во время трансляции, они не 
влияют на ход выполнения программы. 
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3.3. ИДЕНТИФИКАТОРЫ 


Идентификатор — это один буквенно-цифровой символ или строка 
символов, причем первым символом должна быть обязательно буква 
алфавита. Как правило, идентификатор не может содержать более 
31 символа. Идентификаторы могут быть именами или метками дан¬ 
ных, файлов, операторов или точек входа различных частей програм¬ 
мы. В некоторых особых ситуациях допустимая максимальная длина 
идентификатора может быть менее 31 символа. Как мы уже видели, 
одним из примеров меньшего количества символов может служить 
метка оператора PROCEDURE. Любой идентификатор из других 
внешних блоков может содержать не более семи символов. Такие 
идентификаторы называются внешними. (В подмножестве ГШ/1 внеш¬ 
ние операторы состоят из шести или менее символов.) Ключевые сло¬ 
ва в ПЛ/1 тоже являются идентификаторами. Ключевым словом на¬ 
зывается идентификатор, котбрый имеет специальное значение для 
транслятора в соответствующем контексте. В главе 2 встречались клю¬ 
чевые слова 

END. IF, WHILE. PUT, THEN, DO, ELSE и GET 

Заметьте, что обозначение ключевых или резервированных слов 
в ПЛ/1. отличается от обозначения их в Фортране и Коболе. В ПЛ/1 
ключевые слова имеют для транслятора специальное значение толь¬ 
ко в том случае, если они употреблены в соответствующем контексте. 
В 48-символьном алфавите некоторые слова всегда резервируются. 


3.4. ТИПЫ ДАННЫХ 

Данные в ПЛ/1 делятся на две основные категории: исходные 
данные и данные, управляющие программой. В свою очередь исход¬ 
ные данные делятся на два вида: арифметические, которые уже были 
рассмотрены, и строки символов. Исходные данные содержат инфор¬ 
мацию, которая должна быть обработана транслятором. Данные, 
управляющие программой, обеспечивают выполнение программы и 
состоят из метки (см. главу 2), события, задания, места и области 
данных. Сейчас будут рассмотрены не все эти типы данных. 

Числа. При выборе чисел программист должен учитывать следую¬ 
щее: 

основание может иметь форму BINARY (двоичный) или DECIMAL 
(десятичный); 

масштаб может иметь форму FIXED (фиксированный) или FLOAT 
(плавающий); 

тип может иметь форму REAL (вещественный) или COMPLEX 
(комплексный); 

точность может быть ограничена возможностями вычислительной 
машины. (В подмножестве ПЛ/1 употребление константы COMPLEX 
запрещено. Все арифметические выражения полагаются REAL и по¬ 
этому описание REAL тоже не используется.) 




Строка символов. Строка символов состоит из одного или несколь¬ 
ких последовательно расположенных символов, заключенных в ка¬ 
вычки. Строка символов рассматривается как единица данных. Она 
может содержать любой символ, допускаемый данной вычислительной 
машиной. Длиной символьной строки называется количество симво¬ 
лов, заключенных в кавычки. (Заметьте, что пробел в ПЛУ1 ■— тоже 
символ, он должен учитываться как часть символьной строки.) 

1. Если в символьную строку включен комментарий, то и коммен¬ 
тарий и его ограничители (/* и */) учитываются при определении 
длины строки. 

2. Если в строке символов появляется апостроф, то его заменяют 
двумя апострофами (”) без пробелов между ними. Два апострофа 
в этом случае принимаются за один символ. Кавычки имеют форму 
двух апострофов. 

На каждый символ в строке в памяти машины ІВМ-360 отводится 
один байт. Максимальная длина символьной строки в этой системе 
32 767 символов. (В подмножестве ПЛ/І максимальная длина равна 
255.)„ Перед символьной строкой может стоять коэффициент повторе¬ 
ния. Он должен быть целым числом без знака и записывается в скоб¬ 
ках перед строкой. 

Далее приведены примеры констант символьных строк: 


1. 'THIS IS AN ACCEPTABLE CHARACTER STRING” (длина = 38) 

2. '3X — 4Y = 8' (длина = 7) 

3. 'DOLLARS — > MARKS' (длина = 16) 

4. 'BEETHOVEN''S''''NINTH SYMPHONY'''" (длина = 30) 

5. (3) 'ABC' (длина = 9) 

6. 'AB /* COMMENT*/ С (длина = 3) 

7. 'CHARGOGGAGOGGMANCHAUGAGOGGCHAUBUNA 

GUNGAMAUGG' (длина = 44) 

8. '1G! K2+I MC 20H IQ 2QJ/2 (20 19) 18Q 5/4Q • ЗЕ 2H/' 

(длина = 54) 


В примерах 4, 5, 6 приводятся константы BEETHOVEN'S 
"NINTH SYMPHONY" (девятая симфония Бетховена), АВСАВСАВС, 
АВС соответственно. В примере 7 дается название озера в штате Мас¬ 
сачусетс. В примере 8 приведена музыкальная фраза. 

Строка бит. Строка бит пре дставляет собой непрерывную по¬ 
следовательность двоичных цифр, заключенных в кавычки. После 
закрывающей кавычки пишется буква В. Длина строки бит опреде¬ 
ляется числом бит, заключенных в кавычки. В машине ІВМ-360 стро¬ 
ки бит хранятся по восемь бит на байт. Максимальная длина стро¬ 
ки бит 32 767. (В подмножестве ПЛ/1 максимальная длина строки 
бит 64.) Перед строкой бит может стоять коэффициент повторе¬ 
ния. Он записывается перед строкой в круглых скобках и является 
"целым числом без знака. Приведем примеры строк бит: 

'110110110'В (длина = 9. Может быть записана как (З)'ПО'В) 

/ 1'В (длина = 1) 

(Ю)'О'В (длина = 10. Может быть записана как '0000000000'В) 
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Метки. Единицей данных типа метки служит метка в виде констан¬ 
ты или значение переменной типа метки. Метка в виде константы — 
это идентификатор (определение идентификатора дано в параграфе 
3.3), который испльзуется как приставка к оператору ПЛ/1, что при¬ 
водит во время выполнения программы к передаче управления на 
этот оператор. Все метки, которые были приведены в главе 2, были 
константами. За константой типа метки всегда стоит двоеточие (:), 
отделяющее метку от оператора, к которому она относится. Перемен¬ 
ные типа метки будут рассмотрены в следующем параграфе. 

3.5. ОПЕРАТОР DECLARE (ОБЪЯВИТЬ) 

И DEFAULT (УМОЛЧАТЬ) 

Многомерные массивы. В главе 2 было показано, что оператор 
DECLARE в примере DECLARE А (5, 10) REAL DECIMAL FIXED 
(5); объявляет, что А представляет собой массив 50 вещественных де¬ 
сятичных фиксированных чисел с точностью 5. Напомним, что ин¬ 
формация о размерности должна следовать сразу же за идентифика¬ 
тором переменной с пробелом или без него. Массивы расположены 
в памяти машины таким образом: чем правее индекс, тем быстрее он 
изменяется. Допускается не более 32 индексов. (В подмножестве ПЛ/1 
можно использовать не более 3 индексов.) 

В рассмотренном примере массив А будет размещен в оперативной 
памяти в следующем порядке: 

А <1.1), А (1,2). А( 1,10), А (2,1), А (2,2). А (2,10), А (3.1), 

А (3,2). А (3,10), А (4,1), А (4,2).А <4,10). А (5.1). А (5,2),.;.» 

А(5,10) 

.Транслятор ПЛ/1 считает нижний индекс массива равным единице. 
Однако программист может указывать Десли это необходимо) как 
верх нюю, так и нижнюю границу массива. (В подмножестве ПЛ/1 
'"нижняя граница массива не задается. Она всегда полагается равной 
1.) А (—2 : 10,0 : 1СД объявляет, что А — это массив размерностью 
13 ^ГП," причем первый индекс изменяется от—2 до 10 с приращением 
1, а второй — от 0 до 10 также с приращением 1. 

Верхняя и нижняя границы индекса разделены двоеточием, а са¬ 
ми индексы отделены друг от друга запятой. По сравнению с Фортра¬ 
ном такой порядок имеет несомненное преимущество, так как очень 
часто алгоритм гораздо удобнее запрограммировать с помощью ну¬ 
левого или отрицательного индекса. 

Начальные значения. (В подмножестве ПЛ/1 употребление описа¬ 
теля INITIAL запрещено.) Начальные значения переменной могут 
быть объявлены оператором DECLARE с записью описателя INITIAL. 
Например, 

DECLARE A REAL FIXED DECIMAL (5) INITIAL (2 5); 

Это означает, что переменной А присваивается значение 00025. 
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Перед начальным значением в круглых скобках может стоять 
коэффициент повторения, как это показано в следующем примере: 

DECLARE А (20) REAL FIXED DECIMAL (б) INITIAL (I, 2, (18)0): 

где A (1) присвоено значение 00001, А (2) — 00002, а переменным 
А (3) — А (20) — значение 00000. 

Начальные значения массиву размерностью 3x5 присваиваются 
с помощью оператора DECLARE. В первом столбце будут распола¬ 
гаться единицы, во всех остальных — нули: 

і о о о о 
іоооо 
іоооо 

Следует обратить внимание на использование вложенных коэффици¬ 
ентов повторения: 

DECLARE А(3,5) REAL FIXED DECIMAL (1) INITIAL ((3) (1, (4) 0)); 

Интересным примером с вложенными повторителями является присваи¬ 
вание начальных значений единичной матрице, которая представляет 
собой квадратный массив, все элементы которого, расположенные 
на главной диагонали, равны единице, а остальные — нулю. Этот 
метод показан на примере массива рзмерностью 20 X 20. 

DECLARE А (20. 20), REAL FIXED DECIMAL (Б) INITIAL (I, (19) ((20) 0,1)): 

В некоторых случаях программисту бывает необходимо присвоить 
начальные значения только части массива без указания остальных 
начальных значений. -Если в операторе INITIAL стоит звездочка 
(*), то это означает, что соответствующее значение переменной не за¬ 
дается. В следующем примере переменным А(—2), А (0), А (2), А (4) 
присваиваются начальные значения, равные единице, а переменным 
А (—1), А (1), А (3), А (5) не присваивается никаких начальных зна¬ 
чений: 

DECLARE А (-2 : 5) REAL FIXED DECIMAL (6) INITIAL ((4) (I,*)); 

В главе 2 в операторе DECLARE давались характеристики каждого 
описателя идентификатора. Это очень утомительно и требует много 
времени. Мы уже рассмотрели один способ упрощ ения подобной задачи 
путем употребления повторителей в тех случаях, когда идентифика¬ 
торы имеют общие описатели. Это показано в следующем примере: 

DECLARE (A FIXED (6.2), В (8) FLOAT (5)) REAL DECIMAL; 

Можно также воспользоваться сокращениями. Транслятор рас¬ 
познает сокращения нескольких длинных ключевых слов, употреб¬ 
ляемых в ПЛ/1. Полный список таких слов приведен в приложении. 
Далее перечислены те ключевые слова, которые уже встречались в этой 
книге (они будут введены и в настоящей главе): 


PROCEDURE PROG 

DECLARE DCL 

BINARY BIN 

DECIMAL DEC 

CHARACTER CHAR 

COMPLEX OPLX 

INITIAL INIT 

VARYING VAR 
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(В подмножествеПЛ/1 сокращения не разрешаются.)Сокращения мо¬ 
гут употребляться в операторах ПЛ/1 всякий раз, когда имеются клю¬ 
чевые слова. 

Оператор 

DCL (А, в (5,-1 : 6» REAL DEC FLOAT (6); 

эквивалентен 

DECLARE (А, В (5,-1 : 6» REAL DECIMAL FLOAT (6): 

Еще одним способом упрощения записи оператора DECLARE может 
"быть система умолчания. Если описатель идентификатора не опреде¬ 
лен оператором DECLARE, то транслятор определит пропущенные 
описатели по контексту, в котором употреблен этот идентификатор. 
Это делается с помощью специального набора правил, которые вы¬ 
полняются в зависимости от ситуации. Правила работы по умолча¬ 
нию будут рассмотрены в следующих параграфах при рассмотрении 
соответствующих типов данных. Точность вычислений при работе по 
умолчанию (как и в некоторых других случаях) в значительной сте¬ 
пени зависит от вычислительной машины. В настоящей книге рассмат¬ 
ривается работа по умолчанию для машины ІВМ-360. 

Описатели идентификаторов могут определяться программистом 
различными способами. Если все описатели задаются в операторе 
DECLARE, то такой способ называется явным объявлением; если 
не определен ни один из описателей, то способ называется неявным 
объявлением ; если несколько (но не все) описатели заданы, то это 
частично явное объявление. В главе 2 почти все арифметические иден¬ 
тификаторы были объявлены явно. 

В следующей таблице приведены описатели данных, которые 
будут рассматриваться в следующих параграфах. 


ОПИСАТЕЛИ ДАННЫХ 
Данные Подкласс 
Число Основание 

Масштаб 

Тип 

Точность 
Строка Бит 

Символ 


Метка 


Возможные овисаіела 
DECIMAL или BINARY 
(десятичное или двоичное число! 
FLOAT или FIXED 
(плавающее или фиксированное) 
REAL или COMPLEX 
(вещественное или комплексное) 
(W [, d]) 

INITIAL (начальные значения) 
BIT (длина) 

INITIAL (начальные звачения) 
VARYING (переменная длина) 
CHARACTER (длина) 

INITIAL (начальные значения) 
VARYING (переменная длина) 
LABEL [(значения метки)] 


Идентификаторы в арифметических выражениях. (В подмножест¬ 
ве ПЛ/1 все переменные в арифметических выражениях полагаются 
REAL, поэтому описатели COMPLEX и REAL не разрешаются.) 
Если нет явного объявления типа переменной, то полагают, что пере- 



менная представляет собой число. Если* кроме этого, переменная 
не описана явно, то первый символ определяет ее следующим образом: 

а) если первый символ буквы I, J, К, L, М или N, то это пере¬ 
менная типа BINARY FIXED REAL (15); 

б) если первый символ — любая буква алфавита кроме 1, J, К, L, 
М или N, то это переменная DECIMAL FLOAT REAL (6). 

Обратите внимание на то, что рассмотренное правило применяется 
только тогда, когда ни основания, ни масштаб, ни тип явно не объяв¬ 
ляются. Программист должен быть осторожен с необъявленными яв¬ 
но переменными, идентификаторы которых начинаются с букв I, 
J, К, L, М или N. Эти переменные представляют собой двоичные це¬ 
лые числа. Операции с такими числами нужно производить очень вни¬ 
мательно: если в них появляются дробные части, то они будут отбро¬ 
шены так же, как это делается в Фортране. 

При частично явном объявлении арифметических идентификато¬ 
ров необходимо выполнять следующие правила: 

а) если основание явно не объявлено! то переменная неявно 
объявляется DECIMAL по умолчанию; 

б) если масштаб .явно не объявлен, то он неявно объявляется 
FLOAT по умолчанию; 

в) если тип явно не объявлен, то он неявно объявляется REAL 
по умолчанию; 

г) если точность явно не объявлена, то в зависимости от типа 
электронной вычислительной машины она устанавливается по умолча¬ 
нию. Для машины ІВМ-360 точность объявляется следующим образом: 

DECIMAL FIXED (5,0) 

BINARY FIXED (15.0) 

DECIMAL FLOAT (6) 

BINARY FLOAT (21) 

Далее приведена таблица описателей данных по умолчанию. 


ОПИСАТЕЛИ ПО УМОЛЧАНИЮ ДЛЯ ИДЕНТИФИКАТОРОВ В АРИФМЕТИЧЕСКИХ 
ВЫРАЖЕНИЯХ 



[Неявное 

объявление 


Частично явное 
объявление 

Подкласс 

Первые символы 

I, J, К, L М или 
N 

Первые символы 
не I.^J, К, L, М 

Необъявленные описатели 

Основание 

BINARY 

DECIMAL 

DECIMAL 

Масштаб 

FIXED 

FLOAT 

FLOAT 

Тип 

REAL 

REAL 

REAL 


Числа с фиксированной точкой являются правоустановленными 
и, если_это необходимо, левая часть поля будет заполнена нулями. 
Строки данных — левоустановленные и в случае символьных 
ѵ строк правая сторона будет заполнена пробелами, а в случае строк 
битов — нулями. Если строка слишком длинна, то отбрасывание 
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ТОЧНОСТЬ ОПИСЫВАЕМЫХ ДАННЫХ ПО УМОЛЧАНИЮ ДЛЯ СИСТЕМЫ ІВМ-ЗвО 
И МАКСИМАЛЬНАЯ ТОЧНОСТЬ ДЛЯЧИСЕЛ И СТРОК 


Тип переменной 

Точность данных по умолчанию 
для языка ПЛ/І и его 
подмножества 

Максималь¬ 
ная точность 
для ПЛ/1 

Максималь¬ 
ная точность 
Для подмно¬ 
жества ПЛ/1 

FIXED BINARY 

FIXED DECIMAL 

FLOAT BINARY 

FLOAT DECIMAL 
CHARACTER 

BIT 

(15,0) 

(5,0) 

(21) 

(6) 

неявное объявление запре¬ 
щено; длина должна быть 
определена 

неявное объявление запре¬ 
щено; длина должна быть 
определена 

31 бит 

15 цифр 

53 бита 

16 цифр 
от 0 до 

32 767 сим¬ 
волов 

от 0 до 

32 767 би¬ 
тов 

31 бит 

15 цифр 

53 бита 

16 цифр 

от 1 до 255 
символов 

от 1 до 64 
битов 


лишних символов производится справа. При отбрасывании сообщения 
об ошибке не поступает. 

Следующие примеры содержат методы объявления арифметических 
переменных. 

а) DCL А (10), (В, I) DECIMAL (10); 

В этом примере переменная А представляет собой одномерный мас¬ 
сив размерностью 10 с описателями DECIMAL, FLOAT, REAL, каж¬ 
дый элемент массива имеет точность (6). В и I — DECIMAL, FLOAT, 
REAL с точностью (10). 

б) Идентификаторы ICOUNT, X и Y не появляются в операторе 
DECLARE, но в программе могут служить арифметическими пере¬ 
менными. ICOUNT по умолчанию объявляется REAL BINARY 
FLOAT (15). X и Y по умолчанию объявляются REAL DECIMAL 
FLOAT (6). 

в) DCL 1 (5,10), X (10) INIT ((10) 0), A BIN (20), N FIXED; где 
I имеет размерность 5 на 10 и является BINARY FIXED REAL (15). 
X имеет размерность 10 и является DECIMAL FLOAT REAL (6) и 
каждой переменной X присваивается начальное значение 0. Перемен¬ 
ной А приписываются описатели BINARY FLOAT REAL (20). N —• 
DECIMAL FIXED REAL (5). 

Символьные строки и строки битов. Идентификаторы для хране¬ 
ния символов и . битов строк в памяти машины объявляются описате¬ 
лями CHARACTER и BIT; за ними в круглых скобках указывается 
длина строки. Начальные значения могут задаваться описателем 
INITIAL, как для арифметических переменных, с той только разницей, 
что строка в отличие от арифметической константы должна быть оп¬ 
ределена. 

Примеры 

Оператор DCL A CHARACTER (20); объявляет А символьной 
строкой с длиной в 20 символов. 

Оператор DCL А (10) BIT (20); объявляет А индексированным 
массивом размерностью 10 и каждый индекс определяет строку би¬ 
тов длиной 20. 
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Оператор DCL (A INITIAL ('ABODE'), В INITIAL ('FG')) 
CHAR (5); объявляет, что как А, так и В — строки символов длиной 
5. Символы ABCDE присваиваются переменной А, а переменной В 
присваиваются символы FG, за которыми следуют три пропуска. 

Оператор DCL A BIT (8) INIT (' 1100'В); объявляет переменную 
А, равной строке битов длиной 8, и ей присваивается начальное 
вначение 1100 битов, за которым следуют четыре нуля. 

Строки символов и битов могут быть также объявлены переменной 
длины. В этом случае добавляется описатель VARYING. Макси¬ 
мальная длина строки должна быть определена, а текущая длина 
строки равна числу символов, хранящихся в памяти машины в дан¬ 
ный момент. (В подмножестве ПЛ/1 употребление описателя 

VARYING запрещено.) Например, оператор DECLARE LAST _ NAME 

(50) CHARACTER (20) VARYING; объявляет, что идентификатор 

LAST _ NAME является именем массива из 50 строк, а каждая 

строка символов имеет максимальную длину 20. Если во время выпол¬ 
нения программы строка символов 'JONES' хранится в LAST _ 

NAME (7), то длина этой строки символов будет равна пяти. 

Оператор DCL (В BIT (20) INIT ((10)' ГВ), А CHAR (6)) VAR; 
объявляет, что В является строкой битов переменной длины; ее мак¬ 
симальная длина 20. В данном примере длина строки равна 10 и в ней 
хранится 10 единичек. А есть строка символов с переменной длиной; 
ее максимальная длина 6. 

Метки. Все метки, встречавшиеся в главе 2, были метками-кон¬ 
стантами. Их употребление аналогично употреблению меток в Фор¬ 
тране. НодУІЛ/І, кроме чисел, в качестве меток можно использовать 
имена. В ПЛ/ І метка может быть объявлена переменной и ее значение 
во время выполнения программы будет меняться в процессе выпол¬ 
нения программы в зависимости от описателя LABEL. Это более об¬ 
щий подход по сравнению с Фортраном. Метки могут меняться во вре¬ 
мя выполнения программы, служить параметрами при обращении 
к подпрограммам и т. д. Например, оператор DECLARE INPUT 
'LABEL; объявляет, что идентификатор INPUT представляет собой 
метку-переменную. Рассмотрим простой пример с меткой-переменной: 

DECLARE XYZ LABEL; 


ABC ! выражение; 


D4 ; выражение; 


XYZ= АВС; 

GO ТО XYZ; 
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АВС и D4 представляют собой метки-константы, a XYZ — метка-пере» 
менная. 

Рассмотрим другой пример: 

DECLARE LABEL _X (5) LABEL INITIAL (A, В, C, D, E); 

Этот оператор объявляет LABEL_X массивом, состоящим из пяти 
меток-переменных, и приписывает им значения меток-констант А, 
В, С, D и Е соответственно. Если во время выполнения программы 
встречается оператор GO ТО LABEL_X (I), то происходит передача 
управления на операторы с метками А, В, С, D или Е в зависимости 
от значения I. 

Для оптимизации р або чей программ ы описатель LABEL может 
также включать список всех меток-констант, которые могут присваи- 
в аться меткам-переменным во время выполнения программы. Такой 
список дается сразу же за описателем LABEL и заключается 
в круглые скобки. Метки-константы отделены друг от друга запяты¬ 
ми. Если такой список задан, то во время выполнения программы 
метке -переменной может присваиваться только одно из значений кон- 
. стант , имеющихся в списке. (В подмножестве ПЛ/1 употребление ме¬ 
тек-переменных не допускается.) 

Пример 

DECLARE XYZ LABEL (ABC.D4); 

3.6. УПРАЖНЕНИЯ 

Короткие упражнения 

1. В следующем операторе DECLARE определите подразумеваемые по умол¬ 
чанию описатели для каждою идентификатора в арифметических выражениях: 

DECLARE A FIXED (6,2), 

В FLOAT (5), 

С (5), 

D BINARY, 


Г REAL DECIMAL, 

G REAL BINARY DECIMAL, 

H REAL FLOAT DECIMAL. 

I (16), 

J DECIMAL; 

2. Напишите описатель INITIAL для массива A (15, 15), если: 

а) каждый элемент равен 0; 

б) все элементы на главной диагонали не определены, а остальные равны 1; 

в) элементы второго столбца равны 1, а элементы пятого равны 2; все другие 
элементы равны 0. 

3. Если приведенный оператор DECLARE представляет собой часть про¬ 
граммы на ПЛ/1, то в каком порядке будут храниться в памяти машины на¬ 
чальные значения? 

DCL (A INIT ('Х’Ь В INIT (’ A’*BG'), INlT (’THIS IS A CHARACTER STRING CONSTANT’) 
(’это константа, отстоящая из строки символов’) CHAR (10), 

(X INIT ((4)’ 10’В), Y INIT (’ІОГВ)) BIT (8), 

(I INIT (32), J INIT (54321)) FIXED (4). 

К INIT (101101B), 

Z FIXED INIT (5.26); 
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4. Оператор GO ТО в Фортране имеет форму GO ТО (sj, . . . I, где каж¬ 

дый элемент s i — число, и если I = к, то управление передается на оператор s K . 
Напишите на ПЛ/1 эквивалент следующего оператора Фортрана) 

GO ТО (23, 1 4, 62, 4, 7), 1 


Задачи для программирования 

1. Существуют много способов вычисления значений функций методом 
последовательной аппроксимации. Напишите программу для вычисления и печа¬ 
тания значений квадратных корней положительных одно-, двух-, трех-, четырех 
и пятизначных целых чисел. Для вычисления квадратных корней воспользуйтесь 
следующим алгоритмом, основанным на методе последовательной аппроксима¬ 
ции Ньютона: 

а) считать число а; 

б) если число а меньше 5, то первым приближением будет число 2, иначе 
говоря, а/2; 

в) значения последовательных приближений Л п+ і вычисляются по рекур¬ 
рентной формуле 

у Х " +а 

П+1 2 Хп ’ 


где Х п — текущее приближение; а — исходное число; 

г) продолжайте вычисления до тех пор, пока модуль выражения — а 

не станет меньше 0,0001. 

Пример 

а — 9, а > 5. Следовательно, Я} = 4.5. 


2Хі 1 2(4.5) 

(3.25) а —9> 0.0001. 

^ = (^+ 9 3.0096 
2Х г 2(3.25) 

(3.0096) 3 —9 > 0.0001. 

ХІ+а 

5 и т - д - 


Вычисления на каждом шаге выполняются очень быстро. Однако сущест¬ 
вует опасность, что программа будет выполняться бесконечно. В подобных си¬ 
туациях необходимо очень тщательно следить за тем, чтобы переменные объяв¬ 
лялись с удовлетворительной точностью так, чтобы можно было провести про¬ 
верку на окончание цикла. 

2. В предыдущей главе была показана сортировка чисел методом переста¬ 
новки. Другой метод, называемый методом сортировки чисел по основанию си¬ 
стемы счисления, предполагает выделение отдельного элемента памяти для каж¬ 
дой цифры, а затем группировку чисел по цифрам в каждом последовательном 
проходе. 

Напишите программу для сортировки чисел по основанию системы счисле¬ 
ния для 50 двузначных чисел и напечатайте результаты. Такая программа по¬ 
требует 10 участков памяти для 50 двузначных целых чисел при первом проходе 
(для сортировки единиц) и еще 10 — при втором проходе (для сортировки десят¬ 
ков). 
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После проведения этих операций выделенная память может быть снова ис¬ 
пользована. 

В то время как данные считываются, они посылаются в различные участки 
памяти в зависимости от значения цифр в разряде единиц. При следующем про¬ 
ходе данные считываются начиная с нуля в разряде единиц, а затем посылаются 
в соответствующие участки памяти в разряды десятков. Затем данные считывают¬ 
ся последовательно с самых низших позиций (в последующем примере — самые 
правые), отсортированный список чисел печатается в восходящем порядке. Сле¬ 
дующий пример иллюстрирует этот алгоритм. 


Входные данные 

23, 

45, 

11 , 

14, 

18, 61, 

83, 

02 , 

00, 99, 49, 76 

Проход единиц 

0 1 2 

3 

4 

5 

6 7 8 

9 




00 11 02 

23 

14 

45 

76 18 

99 




61 

83 




49 



Запись чисел после 
первого прохода 

00 , 

11 , 

61, 

02 , 

23, 83, 

14, 

45, 

76, 18, 99, 49 

Проход десятков 

0 

1 

2 

3 

4 5 

6 

7 

8 9 


00 

11 

23 


45 

61 

76 

83 99 


02 

14 



49 






18 







Окончательный 

результат 

00 , 

С2, 

11 , 

14, 

18, 23, 

45, 

49, 

61, 76, 83, 99 


Такой вид алгоритма используется в устройствах для механической сортировки 
перфокарт. 

3. Еще один способ сортировки—«магазинная» сортировка. В этом алгорит¬ 
ме данные считываются и проверяются по начальной последовательности. Если 
такая последовательность существует, то данные заносятся в список последова¬ 
тельности, в противном случае данные направляются в рабочий список. В конце 
такого прохода входных данных все данные рабочего списка сравниваются со 
списком последовательности и в том случае, когда для числа из рабочего списка 
найдено место в последовательности, остаток последовательности сдвигается, 
для того чтобы освободить место для нового члена. 

Напишите программу для сортировки входных данных (до 500 единиц), 
представляющих собой целые числа, состоящие не более чем из трех цифр, с по¬ 
мощью метода «магазинной» сортировки и напечатайте список этих чисел. Далее 
дается подробное описание приведенного ранее алгоритма: 

а) установите две области хранения данных, каждая из которых содержит 
500 ячеек. Одна называется списком последовательности, вторая — рабочим 
списком; 

б) считайте первое число в список последовательности; 

в) считайте последовательный набор чисел: сравните каждое число с самым 
большим числом списка последовательности. Если какое-либо число превосходит 
его или равно ему, введите это число в список последовательности и используйте 
его как новое самое большое число. Организуйте счетчики как для счета всех 
считанных чисел, так и для чисел, записанных в список последовательности. 
Когда количество чисел в списке последовательности станет равным общему ко¬ 
личеству считываемых данных, сортировка заканчивается; 

г) если входное число меньше наибольшего в списке последовательности, за¬ 
несите его в рабочий список; 

д) когда все входные данные считаны, а в рабочем списке еще имеются числа, 
каждое число рабочего списка последовательно сравнивайте с числами списка 
последовательности до тех пор, пока в списке последовательности не будет най¬ 
дено число, большее числа в рабочем списке. Затем сдвиньте все числа в списке 
последовательности вниз, а найденное число рабочего списка занесите на осво- 





водившееся место. Увеличьте счетчик числа элементов в списке последователь¬ 
ности на единицу и проверьте, закончена ли сортировка. 

4. Напишите программу для вычисления значения е — основания натураль¬ 
ных логарифмов — до 10 значащих цифр, используя следующий ряд: 

е= 1 +— Н-!-1---1-!-Ь ... 4- 1 - -— . 

1 1-2 ‘ 1-2.3 1-2.3.4 1-2.3... п 

Группа ... . называется п-факториал и сокращенно пишется п\ 

Для нахождения требуемой точности добавьте столько членов, сколько не¬ 
обходимо. Выдайте на печать число е и количество использованных членов ряда. 

5. Условная вероятность определяется как отношение числа событий, кото¬ 
рые произошли, к общему числу возможных событий. Напишите программу, ко¬ 
торая подсчитает и напечатает условные вероятности получения чисел от 2 до 12 
при бросании двух шестигранных игральных костей. Примените следующий ал¬ 
горитм: 

а) поскольку имеются две шестигранные кости, то существует 6X6 (т. е. 36) 
возможных случаев. Это число и будет знаменателем; 

б) возможные события — выпадение чисел 2, 3, 4, ..., 12. Эти числа (числи¬ 
тели) генерируются в результате бросания каждой кости по очереди, т. е. 1 на 
первой кости при выпадении 1, 2, 3,..., 6 на второй; подсчет производится по всем 

событиям 2, 3, 4.12; затем выпадение 2 на первой кости при выпадении 1, 2, 3, 

.... 6 на второй. И снова подсчет производится по всем событиям. Бросание про¬ 
должают до тех пор, пока на первой кости не выпадет цифра 6. 

Этот метод можно применять для вычисления условных вероятностей во мно¬ 
гих видах игр и реальных ситуациях. 

6 . В четырех соседних городах Нордфилде, Саусфилде, Истфилде и Вест- 
филде налоги на продажу товаров установлены в размерах 3,3,5,4 и 2% соответ¬ 
ственно. На картах отперфорировано сначала название одного из городов в виде 
строки символов (заключено в кавычки), затем следует по крайней мере один про¬ 
бел, а затем отперфорирована Сумма товара (в долларах и центах). Напишите про¬ 
грамму, которая будет считывать произвольное число таких перфокарт и выда¬ 
вать на печать название города, цену товара, величину налога и общую стоимость 
(товар плюс налог). Можно считать, что ни один товар ие продается по цене выше 
9999 долларов 99 центов. 




Глава 4 


ВЫРАЖЕНИЯ, ПРИСВАИВАНИЕ 
ЗНАЧЕНИЙ 

И УПРАВЛЕНИЕ ПРОГРАММОЙ 


4.1. ВВЕДЕНИЕ 

В главе 2 были рассмотрены основные понятия и пра¬ 
вила образования выражений и обозначения операторов присваива¬ 
ния и управления программой. В настоящей главе эти правила будут 
обсуждены более детально, а позже будут рассмотрены и дополни¬ 
тельные типы данных. 

В большинстве языков программирования высокого уровня_выра- 
жения являются категорией значения. Они м огут сос тоять из кон¬ 
станты или переменной, комбинации констант, переменных, сим- 
~~ воло в "операции и круглых скобок. В ПЛ/1 существуют три различных 
r 3f5na выражении: переменные, массивы ис труктуры. Выражения типа 
. переменной, как показывает название, определяют значение пере¬ 
менн ой. Почти все выражения, встречавшиеся в настоящей книге 
до сих пор, представляют собой выражения этого типа, выражение 
типа массива определяет значение массива. Единственными выраже¬ 
ниями этого типа, с которыми мы уже встречались, являются выра¬ 
жения GET или PUT LIST (А), где А—идентификатор массива. 
В Фортране это единственное допустимое выражение для обозначения 
массива. В ПЛ/1 возможности употребления такого рода выражений 
значительно расширены. Структуры или выражения типа структур 
до сих пор не встречались. Они будут рассмотрены в главе 7. 

В ПЛ/1 нет специального ключевого слова для обозначения при¬ 
сваивания. Символ присваивания (=), знак равенства, показывает, 
что значение выражения справа от символа присваивается перемен¬ 
ной, находящейся слева от этого символа. 

В главе 2 были введены все операторы ПЛ/1, кроме одного опе¬ 
ратора строки символов 11, означающего конкатенацию*. Этот опе- 

* Конкатенация значит сцепление, соединение. — Примеч. пер. 
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ратор будет рассматриваться в параграфе 4.3. Приоритеты выполнения 
всех этих операций, которые показывают порядок выполнения вы¬ 
ражений, даются в следующей таблице: 


Символ 

Тип 

Значение 

Приоритет 

** 

Арифметический 

Возведение в степень 

Самый высокий 


Строка битов 

Символ отрицания 

Самый высокий 

+ 

Арифметический 

Префикс + 

Самый высокий 


Арифметический 

Префикс — 

Самый высокий 

/ 

Арифметический 

Знак деления 

Второй 

+ 

Арифметический 

Арифметический 

Инфикс + 

Третий 


Инфикс — 

Третий 


Строка 

Конкатенация 

Четвертый 

>= 

Сравнение 

Больше или равно 

Пятый 

<= 

Сравнение 

Меньше или равно 

Пятый 

> 

Сравнение 

Больше 

Пятый 

_< 

Сравнение 

Меньше 

Пятый 


Сравнение 

Не равно 

Пятый 


Сравнение 

Равно 

Пятый 

Т> 

Сравнение 

Не больше 

Пятый 

1 < 

Сравнение 

Не меньше 

И 

Пятый 

' 1 

Строка битов 

Или 

Самый нижний 


Внутри каждого уровня операторы имеют равный приоритет. 
Они выполняются в порядке появления в каждом данном уровне: 
слева направо для уровней от 2 до 7 и справа налево для самого вы¬ 
сокого приоритета. Этот порядок может быть изменен с помощью 
круглых скобок. Выражения, заключенные в круглые скобки, начина¬ 
ют выполняться с тех, которые заключены в самые внутренние скобки. 

Замечание. Знак равенства, кроме употребления в качест¬ 
ве оператора сравнения, может употребляться как оператор присваи¬ 
вания. 

При написании выражений на языке ПЛ/1 программист может вос¬ 
пользоваться круглыми скобками для изменения порядка выполне¬ 
ния операций по приоритетам, чтобы получить желаемые результа¬ 
ты. Так, выражение (А + В)/Е) не аналогично А + В /D. С помощью 
круглых скобок можно также упростить чтение сложных выражений, 
если скобки не требуются для других обозначений. Начинающему 
программисту это очень облегчает задачу, „однако введение лишних 
скобок увеличивает продолжительность трансляции. Во время транс¬ 
ляции выражения, не содержащего круглых скобок, транслятор 
сначала сканирует выражение справа налево, находя операторы са¬ 
мого высокого приоритета, а затем — слева направо, находя опе¬ 
раторы второго уровня, и т. д. Таким образом, выражение скани¬ 
руется семь раз*. Если в транслируемом выражении имеются круглые 

* Существуют более эффективные алгоритмы трансляции, не требующие 
семикратного сканирования. — Примеч. пер. 









скобки, то эти семь сканирований производятся отдельно для каждого 
элемента, заключенного в скобки, начиная с самых внутренних скобок 
до самых внешних, до тех пор, пока не будет протранслировано все 
выражение. 

В выражениях могут быть также употреблены идентификаторы 
_ для обозначения данных смешанных типов. Эти различные типы 
данных, если необходимо, в процессе трансляции должны быть преоб¬ 
разованы в соответствии с приоритетом операций. Обычно програм¬ 
мисту нет надобности уделять этому особое внимание, так как преоб¬ 
разование в тип самого высокого уровня производится только при 
крайней необходимости, а заданная точность всегда обеспечивается. 
Преобразование типов данных может быть также вызвано выполне¬ 
нием самого оператора присваивания. Если идентификатор левой 
части выражения не принадлежит к тому же типу, что и выражение 
в правой части, то после вычисления выражения результат должен 
быть преобразован к типу идентификатора. Следовательно, даже 
простой оператор ПЛ/1 может потребовать выполнения гораздо 
большего числа шагов, чем это может показаться при беглом рас¬ 
смотрении. Перед выполнением какой-либо одной операции данные 
могут преобразовываться для получения промежуточного результата. 
Эти результаты, в свою очередь, могут быть преобразованы еще раз 
до соединения их с другим элементом данных в следующей операции 
и т.д. Если конечный результат выражен не тем типом данных, который 
требует идентификатор, стоящий в операторе присваивания слева 
от разделительного символа, может потребоваться окончательное 
преобразование типа данных. По сравнению с Фортраном, где сме¬ 
шанные типы данных либо абсолютно запрещены, либо в лучшем 
случае их употребление очень ограничено, ПЛ/1 дает большие преи¬ 
мущества*. Преобразование данных в выражении в тех случаях, ког¬ 
да в Этом нет необходимости, увеличивает время выполнения про¬ 
граммы, но на это не стоит обращать внимания на ранних стадиях 
обучения программированию. Примеры преобразования различных 
типов данных будут приведены в следующих параграфах настоящей 
главы. 

4.2. ВЫРАЖЕНИЯ И ОПЕРАТОРЫ 
ПРИСВАИВАНИЯ, СОДЕРЖАЩИЕ 
АРИФМЕТИЧЕСКИЕ ДАННЫЕ 

В главе 2 уже рассматривались выражения и операторы присваи¬ 
вания, содержащие арифметические данные. Правила преобразования 
арифметических данных могут быть обобщены следующим образом. 

Каждая операция является либо одноместной (один операнд), 
либо двухместной (два операнда). Эти операнды могут быть- констан¬ 
тами, отдельными переменными или некоторым подвыражением. 

* В Фортране предусмотрены достаточно широкие возможности работы со 
смешанными типами данных. — Примеч. пер. 
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Каждый операнд может иметь описатели: десятичный или двоичный, 
фиксированный или с плавающей точкой, вещественный или комплекс¬ 
ный, а также иметь определенную точность. Если один операнд пред¬ 
ставляет собой константу, то он обычно преобразовывается в про¬ 
цессе трансляции в соответствии с описателями другого операнда. 
Если оба операнда либо константы, либо переменные с различными 
описателями, то один из операндов будет преобразован соответствую¬ 
щим способом: 

а) если один операнд фиксированный, а другой о плавающей 
точкой, то фиксированный операнд должен быть преобразован в опе¬ 
ранд с плавающей точкой, результат будет выдан в формате о пла¬ 
вающей точкой; 

б) если один операнд десятичный, а другой двоичный, то десятич¬ 
ный операнд преобразуется в двоичный, результат выдается в двоич¬ 
ной форме; 

в) если один операнд вещественный, а другой комплексный, то ни¬ 
каких преобразований не производится, в результате получается 
комплексное число; 

г) точность промежуточного результата сохраняется. 

Правила преобразования данных зависят от внутреннего представ¬ 
ления элементов данных в соответствующем устройстве. Обычно пре¬ 
образование производится так, чтобы получить в результате макси¬ 
мальную точнос ть. В случае необходимости можно воспользоваться 
справочником по ПЛ/1 для устройства, на котором выполняется 
программа. Для иллюстрации того, как делаются преобразования, 
рассмотрим следующий пример: 

DCL А REAL FLOAT DECIMAL (4) INITIAL (2), 

В REAL FIXED DEG1MAL (2) INITIAL (3), 

G REAL FIXED DECIMAL (4.2) INITIAL (4), 

Z COMPLEX FIXED DEGIMAL (5.3): 

7=A*iB+Q + 2: 

Начальные значения А, В и С запишем в память следующим образом: 

А 2000Е01 

в из 

f 04.00 

Первая операция, которую необходимо выполнить, будет В + С. 
Оба операнда — вещественные фиксированные десятичные числа, 
но с различной точностью. При выполнении этого сложения сущест¬ 
вует возможность «переноса» в разряд сотен. 

Следовательно, в результате получится вещественное фиксиро¬ 
ванное десятичное число с точностью (5, 2). 

Второй операцией будет А* (В + С). Оба операнда — веществен¬ 
ные десятичные числа, но один из них — фиксированный, а второй — 
с плавающей точкой. Промежуточный результат 007.00 преобразует¬ 
ся в число с плавающей точкой с сохранением всех цифр, а затем 
выполняется операция А* (В + С). В результате получается вещест¬ 
венное десятичное число с плавающей точкой с точностью 5. Резуль¬ 
тат будет Л4000Е02. 1 


В третьей операции к этому числу добавляется константа 2, 
что дает в результате .16000Е02. Последним шагом при выполнении 
этого оператора будет присваивание переменной значения, получен¬ 
ного при выполнении третьей операции. Но переменная 2 по сравне¬ 
нию с полученным числом имеет другие описатели. Следовательно, 
требуется произвести еще одно преобразование. Число 16.000+00.0001 
будет храниться в Z. 

В ПЛ/1 гораздо больше встроенных-функиши..чем в других язы¬ 
ках программирования. Т абл ица этих функций дана в приложении 
JJ. ^Аргументы большинства таких функций не ограничены одним ти- 
. пом данных, как это делается в Фортране, а полученное значение функ¬ 
ции обладает описателями, которые определяются типом функции 
и аргументами. Например, функция SQRT используется в Фортране 
для получения квадратного корня от числа с плавающей точкой и 
одинарной точностью, функция DSQRT — от числа с плавающей точ¬ 
кой и удвоенной точностью, функция CSQRT — от комплексного 
числа с одинарной точностью, функция CDSQRT — от комплексного 
числа с удвоенной точностью. 

В ПЛ/1 _функция SQRT применим^ для всех арифметических ар¬ 
гументов, даже для имен массивов, как это будет показано далее 
в этой главе. Кроме того, аргументы функций сами могут быть выра¬ 
жениями. 

Если в выражении встречается функци я, то она выполняется 
самой первой, даже раньше операторов самого высокого приоритета. 
^Например, в выражении А + SQRT (В) в первую очередь вычисляется 
квадратный корень, в то время как в выражении А + SQRT (В + С) 
первым будет вычисляться выражение (В + С). 

Таблица встроенных функций, которая приводится в приложении 
Д, может быгь очень полезной, она познакомит читателя с теми функ¬ 
циями, которые могут встретиться в конкретной ситуации при прог¬ 
раммировании. Некоторые из этих функций уже рассматривались 
в настоящей книге, а другие будут описаны далее по мере необходи¬ 
мости. 


4.3. ВЫРАЖЕНИЯ И ОПЕРАТОРЫ 
ПРИСВАИВАНИЯ, СОДЕРЖАЩИЕ СТРОКИ 
ДАННЫХ 

Оператор конкатенации (J|) употребляется только в строках. 
Он определяет, что два операнда соединяются вместе и образуют но¬ 
вую строку, где за последним символом левого операнда сразу же 
следует первый символ правого операнда. Если оба операнда пред¬ 
ставляют собой строки битов, то в результате тоже получится строка 
битов. Оба операнда, если это необходимо, преобразуются в строки 
символов и в результате тоже образуют строку символов. Длина 
строки, полученной в результате, равна сумме длин двух операндов. 
Если один из операндов имеет описатель VARYING (переменная дли¬ 
на), то и в результате образуется строка с переменной длиной. 
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В операторах присваивания строка является левоустановленной, 
т. е. если длина строки больше, чем длина, объявленная для. перемен¬ 
ной, то отбрасывание лишних символов производится справа. Если 
строка короче длины, объявленной для переменной, то эту перемен¬ 
ную не объявляют VARYING, а строка заполняется справа пробе¬ 
лами в случае символьных строк и нулями в случае строки битов. 
Следующая программа иллюстрирует это правило: 


Е401: PROCEDURE OPTIONS (MAIN); 

DCL (A VAR, B) CHAR (10). (G VAR, D) BIT (10), 

(U INIT (’ABC), V INIT CDE’), W INIT (’F*) VAR) CHAR (3)} 
(X INIT (401' B), Y INIT (’ll’B). 2 INIT (’l’B) VAR) BIT (3); 
PUT LIST (U. V, W); 

PUT SKIP LIST (X, Y, Z); 


A=U|| V; 


D=Y||X} 
A=U || Xj 
21 END E401; 
ABC 
Ч0ГВ 
ABCDE 
DE 110 
FDE 

IJKIJKABO 
ABCDE UFA 
•101110’ В 
•1101010000’B 
ABC101 


PUT SKIP LIST (A); 
PUT SKIP LIST (A); 
PUT SKIP LIST (A); 
PUT SKIP LIST (B); 
PUT SKIP LIST (B); 
PUT SKIP LIST (C)j 
PUT SKIP LIST (D)j 
PUT SKIP LIST (A)> 

DE F 


Комментарий к программе 
Заголовок 

/"Глава 4, пример 1*/ 

/’Конкатенации*/ 

Оператор конкатенации требует, чтобы оба операнда были стро¬ 
ками. При необходимости один оператор или даже оба преобразуют¬ 
ся в строки. Длина преобразованного операнда зависит от типа и 
точности первоначального операнда. В следующем параграфе будет 
дан пример такого преобразования. 

Догические операторы ', & и | могут использоваться только 
«в строках бит. Символ отрицания ( _| ) может служить только в ка¬ 
честве оператора префикс, а «и» (&) и «или» (|) — только в качестве 
операторов инфикс. Если операнды не являются строками битов, то 
они должны быть в них преобразованы. Если их длина будет неоди¬ 
накова, то более короткая строка заполняется с правой стороны ну¬ 
лями, чтобы длина обеих строк стала одинаковой. Эти операции выпол¬ 
няются по битам. Строка битов, полученная в результате, имеет дли¬ 
ну, равную длине двух операндов. 



Результат этих операций в каждом двоичном разряде приведен 
в следующей таблице: 


X Y — |Х x&y х і Y 

110 11 

1 0 0 0 1 

0 11 0 1 

0 0 1 0 0 


Обратите внимание на то, что 0 может быть интерпретирован как 
«ложь», а 1 — как «истина». 

В следующих примерах даются значения операндов: 


- А * 11001*в 

В 401’В 

С ЧОІЮ'В 

D 'ГВ 

Е *0*В 

— I D yields ’0’В 

— I Е yields Ч'В 

— I A yields ’00110’В 

А I @ yields Ч111ГВ 

В IQ yields ЧОІЮ’В 

A&Q yields ЧОООО'В 

B&O yields ЧОЮО’В 

4 —, А I В yields ЧОІЮ’В 


В главе 2 операторы сравнения были представлены в несколько 
упрощенном виде. В действительности они образуют строку длиной 
в один бит. Следовательно, выражение А < В образует строки бит 
'ГВ или 'О'В, в зависимости от того, является выражение А<В 
'«истинным» или «ложным». Операторы сравнения могут употреблять¬ 
ся также для сравнения не только арифметических, ной других типов 
данных. Сравнение символов производится слева направо. Сравнение 
бит производится бит за битом. Сравнение операндов смешанных 
типов требует предварительного преобразования этих операндов. 
Операнды более низкого типа данных преобразуются в более высокий 
тип. Приоритет типов данных при таком преобразовании следующий: 

Алгебраические Самый высокий 

Строка символов \ 

Строка бит Самый низкий 

Например, если выполняется операция А < В, где А — строка 
битов и В — фиксированная десятичная величина, то перед опера¬ 
цией сравнения строка бит А преобразуется в фиксированную дво¬ 
ичную и десятичная величина В — тоже в фиксированную двоичную. ! 
(В подмножестве ПЛ/1 сравнение строк символов с арифметическими 
данными запрещено.) 





4.4. ВСТРОЕННЫЕ ФУНКЦИИ ДЛЯ СТРОК 
ДАННЫХ 

В ПЛ/1 имеется несколько встроенных функций для обработки 
строк. Эти функции особенно эффективны при решении задач с не¬ 
числовыми данными. Далее приведен частичный список этих функций: 
BIT (выражение [размер]) 

Вычисленное значение представляет собой «выражение», преобра¬ 
зованное в строку битов с длиной «размер». Если «размер» требует, 
то справа могут быть добавлены нули или произведено отбрасыва¬ 
ние лишних символов. Если «размер» опущен, то длина определяется 
по длине выражения, которое преобразовывается. «Размер» должен 
быть десятичным целым числом. 

Пример. Если А = 001В и В = 011В, то BIT (А + В,6) имеет 
значение 'ЮОООО'В 
CHAR (выражение £, размер]) 

Эта функция логически похожа на функцию BIT, за исключением 
того, что результатом выполнения функции является строка симво¬ 
лов. 

Пример. Если В = 'ІОГВ, то CHAR (В,3) имеет значение 'ЮГ 
^UBSTR (строка, I [, /]) 

Эта редактирующая функция выделяет из «строки», начиная с і- го 
символа, подстрочку длиной j. JE&Jia аргумент «строка» в действитель¬ 
ности строкой не является, то он должен быть в нее преобразован. 
Аргументы і и / должны быть целыми числами или выражениями, 
которые можно преобразовать в целые числа. Если k является дли¬ 
ной «строки», то целые числа і и / должны удовлетворять следующим 
отношениям: 

о < і<к 
\<і<к 
і+]-\<к 

Если / не определено, то оно устанавливается равным k — і + 1, 
'T. е. подстрока будет начинаться с t -го символа и включать все симво¬ 
лы от і до конца «строки». Если / = 0, то подстрока является стро¬ 
кой нулей. 

Пример. SUBSTR ('ABCDEF', і, /) даст следующие результаты 
для различных значений і, /: 



• 

Результат 

1 

2 

'АВ' 

1 

4 

'ABCD' 

3 

4 

'CDEF' 

3 

опущено 

'CDEF' 

4 

1 

'D ' 

4 

0 

"(строка нулей) 

4 

4 

ошибка 
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Функция INDEX (строка 1, строка 2). Эта функция выделяет пер¬ 
вое вхождение «строки 2» в «строку Б. Поиск «строки 1» производится 
слева направо. Результат вычисления функции — позиция левого 
символа «строки 2» в «строке 1», задаваемая целым двоичным числом. 

Оба аргумента преобразуются в строки символов, если они оба 
не являются строками битов. 

Полученное значение будет ОВ, если «строка 2» не является под¬ 
стройкой «строки Б или если один из аргументов имеет длину 0. 

Пример. Если CHSTRG = 'ABC, ABCDE, XYZ', то 

INDEX (CHSTRG, 'В') даст число 2 в двоичной системе счисле¬ 
ния, т. е. 10В; 

INDEX (CHSTRG, 'ВС')—число 2 в двоичной системе счисле¬ 
ния, т. е. 10В; 

INDEX (CHSTRG, 'BCD') —число 6 в двоичной системе счисления, 
т. е. НОВ. 

OyHKpHflJLENGTH (строка). Это функция вычисляет длину строки 
с точностью, определяемой по умолчанию текущей длиной «строки». 
Результат выдается в виде двоичного целого числа. Если аргумент 
является не строкой, то он должен быть преобразован либо в строку 
битов, либо в символьную строку. 

Пример. Если АВС = 'CHARACTER STRING', то LENGTH - 
(АВС) даст число 16 в двоичной системе счисления, т. е. 10000 В. 
(В подмножестве ПЛ/1 употребление аргумента LENGTH запрещено.) 

Функция REPEAT (строка г). Функция REPEAT (возврат) кон¬ 
катенирует (соединяет) «строку» саму с собой і раз. Если «строк: > 
в действительности строкой не является, то она должна быть преоб¬ 
разована в строку битов или символов. Аргумент т должен быть 
целой константой, возможно со знаком. Если ш ^ 0, то значением 
функции будет аргумент «строка» или аргумент «строка», преобра¬ 
зованная в строку битов или символов. 

Пример. Если АВС = ' 1101'В, то REPEAT (АВС,2) получит зна¬ 
чение '110111011101'В. 

Аргумент BOOL (строка I, строка 2, бул). Аргументы «строка 1» 
и «строка 2»' представляют собой строки битов. Если они таковыми 
не являются, они должны быть преобразованы в строки битов. Если 
их длина неодинакова, то к более короткой строке справа добавляются 
нули, чтобы сделать длину обеих строк одинаковой. 

Аргумент «бул» определяет булеву функцию и является строкой 
битов длиной 4. Если необходимо, аргумент «бул» может быть преоб¬ 
разован в строку битов длиной 4. Каждый бит в «бул» равен либо 0, 
либо 1, следовательно, строка BOOL может определить 16 различных 
возможных булевых функций. 

Вычисленное значение этой функции будет строкой битов с дли¬ 
ной, равной длине той из «строки 1» и «строки 2», которая содержит 
большее число битов. В вычисленном значении і - й бит представляет 
собой результат операции «бул» на і-х битах «строки 1» и «строки 2». 

Пусть «бул» есть строка битов 'Ьфффі В, где каждый b t равен 
либо 0, либо 1. Следующая таблица показывает, как вычисляется 
г-й бит в результате: 



/-й бит в «строке 1» і-й бит в «строке 2» і-й бит в результате 
0 0 Ь, 


Пример 

А = 1101-В, В=»1011В 

BOOL (А, В•,0111* В) получит значение Mill' В 

Обратите внимание на то, что если 0 интерпретирован как «ложь», 
а 1 — как «истина», то булева функция в этом примере представляет 
таблицу истинности функции «или». Следовательно, результатом яв¬ 
ляется выполнение функции «или» бит за битом на строках А и В. 

BOOL (А, В, '0001'В) получит значение '100ГВ. В этом смысле 
для каждой пары соответствующих разрядов строк А и В будет вычис¬ 
лена функция «и». 

BOOL (А, В, '0110'В) получит значение '0110'В. Как можно 
интерпретировать эту функцию? 

Функция^ jSUBSTR в качестве псевдопеременной. Эта функция 
может применяться как псевдопеременная. В ГОІ/1 существуют еще 
несколько функций, которые могут быть использованы подобным об¬ 
разом. Для иллюстрации этого утверждения рассмотрим следующую 
задачу замены одного символа в строке другим: 

DCL N FIXED (2) INIT (б), (X, Y IN1T (■ ABCDEFGH') ) CHAR (8); 

X=SUBSTR (Y. 1, N— 1) I I ‘A* I I SUBSTR <Y. N+1); 

В результате выполнения этого сегмента программы переменной X 
присваивается значение строки символов 'ABCDEFGH'. В приведен¬ 
ном примере фактически требовалось подстрочку Y длиной 1, начи¬ 
нающуюся с 5 символа, заменить на А. Другими словами, 

SUBSTR (Y, N. 1» = *А- 

коротко показывает, что необходимо выполнить. Если бы SUBSTR 
была только обычной функцией, выполнение этой операции было бы 
невозможно. Чтобы сделать выполнение этой операции возможным, 
в ПЛ/1 введены псевдопеременные. Псевдопеременная — это имя 
встроенной функции, которое может быть использовано как имя функ¬ 
ции или как переменная для получения значений. 

Оператор GET LIST (SUBSTR (Y, 10, 2)); считывает строку дли¬ 
ной 2 в 10-ю и 11-ю позиции строки Y. 

Следующая запись иллюстрирует SUBSTR как функцию в правой 
части оператора и как псевдопеременную в левой его части. Допустим, 
что X = 'COMMON', a Y = 'XYANNBC' 

SUBSTR (X. 2, 3)=SUBSTR (Y, 3, 3); 

После выполнения этого оператора строка X получит значение 
'CANNON'. 

Приведенная далее программа иллюстрирует операции со строками 
и применение некоторых функций. 

Функции DATE (дата) и TIME (время). Встроенная функция 
DATE, у которой нет никаких аргументов, получает значение строки 
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символов в форме 'YYMMDD', где YY — два последних числа теку¬ 
щего года, ММ — означает текущий месяц, DD — данное число. 

Встроенная функция f ІМЕ, у которой нет никаких аргументов, 
получает значение строки символов в форме 'HHMMSSTTT', где НН 
означает данный час, ММ означает данную минуту, SS — данную 
секунду, ТТТ — данную миллисекунду. 

Приведенная далее программа включает эти две функции, она пе¬ 
чатает текущую дату и время в форме MM/DD/YY и НН : ММ: SS. 
ТТТ. Первые нули заменяются пробелами везде, кроме ТТТ. Эти 
функции необходимы оператору вычислительной машины, когда он 
готовит систему для ежедневной работы. 


/* CHAPTER # 4 -EXAMPLE #2 •/ 
/• DATE-TIME FUNCTIONS */ 


1 E402! PROCEDURE OPTIONS (MAIN); 

2 DCL D CHAR (6), T CHAR (9), XD CHAR (8), XT CHAR (12)1 

3 D=DATE; 


17 

DATE IS 
TIME IS 


T = TIME; 


DO 1=1. 3, 5; 

IF SUBSTR (D. I, 1) = ‘0‘ THEN SUBSTR (D, I, 1) = • *i 5 
END; 

XD=SUBSTR (D, 3, 2) I I •/• I I SUBSTR (D, 5. 2) 11 •/' | | SUBSTR (D, 1. 2)J 
PUT LISTCDATE IS*. XD); 

DO 1=1, 3, 5; 

IF SUBSTR (T, I, 1) = ‘0‘ THEN SUBSTR (T, I, 1)= “i 
END; 

XT = SUBSTR (T f 1. 2.) I I * I • II SUBSTR (T, 3, 2) | | ’ ( ‘| | SUBSTR (T, 8, 2) |l 
‘.‘II SUBSTR (T, 7); 

PUT SKIP LIST (‘TIME IS‘, XT); 

END E402; 


4/28/46 
17 ; 55 : 44.170 


Комментарий к программе 
/"Глава 4, пример 2*1 
/"■Функции DATE—TIME*/ 


4.5. ВЫРАЖЕНИЯ ТИПА МАССИВА 
И ПРИСВАИВАНИЕ ЗНАЧЕНИЙ 

При вычислениях часто требуется произвести операцию либо 
над целым массивом, либо над его частью (например, строкой дву¬ 
мерного массива). В Фортране такая операция обычно требует цик¬ 
лов, формируемых операторами DO или IF. Аналогичный метод может 
быть применен и в ПЛ/1, но часто в этом нет необходимости, так как 
ПЛ/1 имеет большие возможности работы с массивами. Если необ¬ 
ходимо идентифицировать определенный элемент массива в операторе 
ПЛ/1, то должны быть указаны имя массива и положение элемента 
в массиве, например А (1,2) или A (L, I -f J). 

Напомним, что массивы расположены в оперативной памяти так, 
что самые правые индексы изменяются быстрее остальных, а самые 
левые — медленнее. Все операции с массивами, описанные в данном 
разделе, выполняются в таком порядке. 
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И м ена массивов мог ут использов аться в списке операторов GET 
дщиДРШТ а данньіе считываются или записьшаются в том порядке', 
в ко тором они хранятся в памяти машины. 


Пример 


Пусть А имеет размерность (2,3), PUT LIST (А); В результате 
будут напечатаны текущие значения А (1,1), А (1,2), А (1,3), А (2,1), 
А (2,2), А (2,3). Имена массивов могут быть также в выражениях и 
в операторах присваивания. Всемассивы в выражении или операторе 
присваивания должны быть одинаковой размерности, а индексы 
. должны иметь одинаковые пределы. 

Примеры 

а) А = В; Это означает, что значение каждого элемента массива 
В присваивается соответствующему элементу массива А. 

б) А = —В + 3*С; Допустим, что А, В и С имеют размерность 
(5,20); тогда этот оператор эквивалентен 

DO 1=1 ТО 5; 

DO J = 1 ТО 20; 

а (I, J)= - в (I. J)+3*C a, J): 

END; END; 

в) А = В + А (1,3); Допустим, что массивы А и В имеют следую¬ 
щие начальные значения: 



Тогда результаты этой операции будут такими: 



На первый взгляд этот результат может показаться некорректным; 
однако значение А (1,3) изменилось с 3 до 4 «на полпути» выполнения 
операции. 

Большинство встроенных функций принимают имена массивов 
или выражений типа массива в качестве аргументов и результатом 
является массив, в котором значение каждого элемента функции 
присваивается соответствующему элементу в массиве аргументов. 

Поимеры 

а) А = SQRT (В); 

б) А = B/ABS (С) — 10* SIN (D) + X; 

где А, В, С и D — массивы с одинаковой размерностью, а X не яв¬ 
ляется массивом. 

Сечения массивов. (В подмножестве ПЛ/1 сечения массивов зап¬ 
рещены.) 

Сеч ение массива можно., обозначать звездочкой вместо одного или 
нескольких индексов этого массива. 

Пусть массив А имеет размерность (2, 3, 4); тогда А (1,3,*) озна¬ 
чает массив А (1, 3, 1), А (1, 3, 2), А (1, 3, 3), А (1, 3, 4); 

А (*, 3, 4) означает массив А (1, 3, 4), А (2, 3, 4); 

А (*, *, 4) означает массив А (1, 1, 4), А (1, 2, 4), А (1, 3, 4), А (2, 
1, 4), А (2, 2, 4), А (2, 3, 4); 

А (*, *, *) означает весь массив А. 
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Обратите внимание н а то, ч то, когда з вездочки служат индексами, 
результатом будет массив с числом измерений, равным числу звез¬ 
дочек в индексе, Например, А (I, *)* В (*, J) даст линейный массив, 
состоящий из "произведения соответствующих элементов строки I 
массива А на столбец J массива В. В строке I массива А и столбце J 
массива В должно быть одинаковое число элементов. 

PUT LIST (А (3, *)); напечатает все элементы третьей строки масси¬ 
ва А. 

Встроенные функции массивов. В ПЛ/1 имеется несколько встроен¬ 
ных функций для операций с массивами. Эти специальные функции 
требуют аргументов массива и вычисляют значение переменной. 
Далее приведено несколько таких функций. 

Функция ALL (А). А должен быть массивом, состоящим из строк 
битов; если он не таков, то каждый элемент должен быть преобразо¬ 
ван в строку битов. Полученное значение функции равно строке битов, 
длина которой равна самой длинной строке массива А, а значение 
t -го бита в этой строке равно 1 при условии, что все значения бита і 
в каждом элементе массива А равны 1. В любом другом случае это 
значение будет 0. 

Пример 

. /‘1001- в * 1 1 * в \ 

А = Ѵ110‘ в •100‘ В / 

ALL (А) получает значение 'ІООО'В. 

Функция ANY (А). Массив А должен состоять из строк битов; 
если он не г 'таков, то каждый элемент должен быть преобразован 
в строку битов. Полученное значение функции будет строкой битов, 
длина которой равна самой длинной строке массива А, а значение 
t-ro бита в этой строке равно 1 при условии, что какое-нибудь значе¬ 
ние бита і массива А равно 1. В любом другом случае это значение рав¬ 
но 0. 

Пример 

Если массив А имеет такое же значение, как в предыдущем приме¬ 
ре, то ANY (А) получит значение '1101'В. 

Функция PROD (А). Функция PROD находит произведение всех 
элементов массйва'“7Г~и получает это значение. Если это необходимо, 
каждый элемент преобразуется в выражение с плавающей точкой. 

Пример 

PROD (А + В); вычислит массив А + В, а затем даст произведе¬ 
ние всех его элементов. 

Функция SU M (А). Функция SUM находит сумму всех элементов 
массива А іГполучает это значение. В случае необходимости каждый 
элемент преобразуется в выражение с плавающей точкой. 

Пример 

DO 1=1 TO N; 

X (I)=SUM (A(J,*) * Y (*) ); 

END; 

Этот сегмент программы вычислит массив X (I) с размерностью N, 
каждый элемент которого равен сумме элементов массива, состоящего 
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из произведения элементов строки I массива А на соответствующий 
элемент массива Y. Строка I массива А и массив Y должны иметь оди¬ 
наковую размерность. 

Следующая программа иллюстрирует некоторые операции над 
массивами. 

/* CHAPTER #4 — EXAMPLE #3 ♦/ 

/• ARRAY OPERATIONS */ 

1 E403 : PROCEDURE OPTIONS (MAIN); 

2 DCL (A (2, 3), В (2,3) INIT (1, 2, 3, 4, 5, 6), C (2, 3) INIT ((3) (1.2))) FIXED 

(7.4); 

3 PUT SKIP LIST (B (1,*) ); 

4 PUT SKIP LIST (B (*, 2) ); 

5 A = B + C; PUT SKIP (2) LIST (A (1,*) ); 

7 PUT SKIP LIST (A (2,*) ); 

8 A (2. »)=2*B (2, •)—C (1, •); PUT SKIP (2) LIST (A (2, •) ); 

10 A (*. 3)=SQRT (B (•, 3 ) ); PUT SKIP (2) LIST (A (•, 3) ); 

12 B = C + B (1, 2); PUT SKIP (2) LIST (В (1, *) ); 

PUT SKSP LIST (B <2, •)); 

14 /* NOTICE THAT THIS LAST EXAMPLE IS NOT EQUIVALENT TO 

ADDING A CONSTANT AS THE VALUE OF В (1, 2) IS 
CHANGED DURING EXECUTION. */ 

15 END E403; 

1.0000 2.0000 

2.0000 6.0000 

2.0000 4.0000 

6 0000 6,0000 

7.000 0 8.0000 

1 7320 2 4494 

3 0000 4.0000 

6.0000 5.0000 


Комментарий к программе 
Заголовок к программе 

/♦Глава 4, пример 3*/ 

/♦Операции над массивами*/ 

После оператора 14 

/♦Обратите внимание на то, что этот последний пример не эквивалентен сло¬ 
жению константы, так как значение В (1, 2) изменяется во время выполнения про¬ 
граммы*/ 

4.6. ОПЕРАТОР GO ТО 

В ПЛ/1 оператор GO ТО имеет вид: 

[метка l:...]GOTO метка 2; 

ѵ Метка 2, стоящая справа от оператора GO ТО, может быть либо кон- 
стантой 'типа метки, либо переменной типа метки, которая объявлена 
описателем LABEL. Если это переменная типа метки, то до выпол¬ 
нения оператора GO ТО ей должно быть присвоено значение константы 
типа метки. 

В параграфе 3.5 было рассмотрено несколько примеров таких опе¬ 
раций. Далее приведен пример, который иллюстрирует применение 
переменных типа метки в операторе GO ТО в несколько ином виде. 


з.оооо 

4 . оооо 
8.0000 
11.0000 

5.0000 
6.0000 
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Заметьте, что выполнение оператора GO ТО в ПЛ/1 аналогично вы¬ 
полнению вычисляемого оператора GO ТО в Фортране. 

DECLARE L (3) LABEL; 

(оператор, присваивающий I значения 1,2 или 3) 
GOTO L (1); 

L(l): _‘_ 

L(2): _ 

L(3): _^_ 


В операторах GET или PUT имена переменных типа метки употреб¬ 
ляться не могут. 

4.7. ОПЕРАТОР DO 

В следующих параграфах будут рассмотрены три типа операторов 
__РО—в ІЩ /L Перед каждым оператором DO любого типа может стоя"ть 
произвольная prefix метка (метки), а заканчиваться он должен опе¬ 
ратором END. 

Тип 1 

[метка: ...] DO; 

Такая форма оператора DO в основном для выполнения нескольких 
операторов ПЛ/1 в группе, наиболее часто она применима в операторах 
IF. Операторы, находящиеся в группе между DO и END, выполняют¬ 
ся только один раз, если повторное выполнение специально не предус¬ 
мотрено. 

Тип 2 

[метка: ...] DO WHILE (выражение); 

Выраже ние, которое заключено в круглые скобки, в случае необ¬ 
ходимости'преобразуется в строку битов. Если все биты равны О, 
то выполнение цикла продолжается До тех пор, пока хотя бы один из 
битов не будет равен единице. Проверка производится только в нача-_ 
ле каждого повтор ения цикла. Пользуясь этим типом оператора DO, 
необходимо с особой^ тщательностью следить за тем, чтобы цикл не 
выполнялся бесконечно. 

Рассмотрим следующий пример: 

A: DO WHILE (выражение); 

END; 

В: оператор, следующий за циклом; 
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Это можно запрограммировать такши образом: 

A: IF выражение THEN; 

ELSE GO ТО В; 

GO' ТО А; 

В: оператор, следующий за циклом; 

Тип 3 

[метка:...] DO (псевдопеременная ) = 

I переменная J 

= спецификация [, спецификация ...]; 

Каждая «спецификация» имеет форму: 

выражение 1 выражение 2 [BY выражение ЗП 

[BY выражение 3 [ТО выражение 2] J 
[WHILE (выражение 4)] 

«Переменная» в приведенной общей форме может быть арифметиче¬ 
ской, переменной типа метки или строкой. Она может быть индекси¬ 
рована. Е сли конструкция «BY выражение 3» опущена, а конструкция 
«ТО выражение 2» оставлена, как при записи DO 1 = 5 ТО 1 0; то 
«выражение 3» по умолчанию равно 1. Если опущена конструкция «ТО 
выражение 2» и оставлена конструкция «BY выражение 2», то цикл 
будет выполняться до тех пор, пока он не закончится оператором вну¬ 
три цикла или конструкцией WHILE, например, DO I = 52 WHILE 
(А < В); Если и ТО и BY опущены, то цикл выполняется только один 
раз с «переменной», равной значению «выражения 1», даже если 
имеется конструкция WHILE. Например, DO X = 15.7; Проверка 
на окончание цикла делается в начале прохождения каждого цикла. 

Примеры 

а) DO J = 1 ТО N; 

б) DO I = 1 ТО 50 WHILE (А < В); 

в) DO I = 1 ТО 50, WHILE (А < В); 

Обратите внимание на то, что примеры (б) и (в) не одинаковы. Цикл 
в (б) будет выполняться 50 раз, при том условии, что А не станет боль¬ 
ше или равно В. В этом случае выполнение цикла прекратится. Цикл 
в (в) будет выполняться 50 раз, а затем столько раз, сколько необхо¬ 
димо, чтобы либо А стало больше или равно В, либо выполнение цик¬ 
ла было прекращено оператором внутри цикла. Во время выполнения 
этой последней части цикла I сохранит свое конечное значение (51), 
полученное после выполнения первой части цикла. 

г) DO I = N + L BY — .2 WHILE (I > 0); 

д) DO X = 3 TO 5 BY .4, 10 BY — .2 TO 8, 50, 45; 

е) DO X = Y + 2.*Z TO Z** 2, А, В, A + B; 

ж) DO WEATHER = 'RAIN', 'SNOW', 'FAIR'; 

(DO ПОГОДА = 'ДОЖДЬ', 'СНЕГ', 'ХОРОШАЯ') 

з) DO X = 1 ТО 5, Y = 10 ТО 50; 
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Такой записи быть не может, так как оператор DO может иметь 
только одну переменную. 

и) DO С = 2 + 31, 2 — 31 (С— комплексное число) 

к) DO I = 1 ТО 5, 10 ТО 9 B,Y - .2; 

л) DO X = 1 ТО 5, 10 ТО 9 BY — .2; 

На первый взгляд последние два примера кажутся одинаковыми. 
Если бы транслятор присваивал описатели по умолчанию, то X был 
бы определен как переменная REAL DECIMAL FLOAT с точностью 
(6) и в процессе выполнения цикла последовательно принимал бы зна¬ 
чения 1, 2, 3, 4, 5, 10, 9.8, 9.6, 9.4, 9.2 и 9.1 по умолчанию определяет¬ 
ся BINARY FIXED REAL с точностью (15, 0). Следовательно, в про¬ 
цессе выполнения цикла в примере (к) переменная последовательно 
принимает эквивалентные двоичные значения 1, 2, 3, 4, 5, 10 и 9. 
Поскольку правила по умолчанию в Фортране относительно просты по 
сравнению с ПЛ/1, программисты, привыкшие иметь дело с Фортраном, 
начиная программировать на ПЛ/1, часто допускают ошибки из-за 
нежелания тратить время на точное объявление переменных в програм¬ 
ме. Обычно эти ошибки легко обнаружить. Запись примера (к) вместо 
(л) показывает, какие удивительные результаты можно получить, если 
пренебречь тщательным объявлением переменных. Правила по умол¬ 
чанию в ПЛ/1 должны выполняться всегда, когда это необходимо. Од¬ 
нако когда переменной присвоено имя в процессе написания програм¬ 
мы, метод описания этой переменной (по умолчанию или явный) дол¬ 
жен выбираться не случайным образом, а в зависимости от типа пере¬ 
менной. Значение, которое индексированная переменная оператора DO 
примет после завершения цикла, зависит от условий, при которых 
делается выход из цикла. Различные трансляторы делают это по-раз¬ 
ному. Если выход из цикла осуществляется передачей управления на 
оператор внутри цикла, то переменная с индексами обычно сохраняет 
свое текущее значение и вне цикла. Например, значение переменной 
I после завершения цикла в примере (а) будет N 4- 1. В примере (б) 
значение I после выхода из цикла будет равно 51, если условие WHILE 
не удовлетворяется. В том же примере, если условие WHILE удов¬ 
летворяется при десятом проходе цикла, то этот проход цикла будет 
завершен, значение переменной I увеличится до 11, будет проверено 
условие А < В и затем произойдет выход из цикла. Следовательно, 
после выхода из цикла значение переменной I будет равно 11. В при¬ 
мере (в) I сохраняет значение 51 в течение всего времени выполнения 
цикла типа WHILE (А<В) и после выхода из цикла сохранит это зна¬ 
чение. Если переменная с индексами должна использоваться вне цик¬ 
ла, то после выхода из цикла по одному из условий, которые удовлет¬ 
воряются в операторе DO, необходимо провести проверку транслятора, 
так как описанный порядок выполнения операторов не является вполне 
общим. 

Е динстве нный способ входа в циклы DO второго и третьего типов — 
через заголовок цикла, т. е. через оператор DO. Можно передать 
управление на оператор DO, как это показано в следующем примере: 
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GO TO A; 

A: DO І = 1 TO 10; 


END; 

Было бы неправильно сначала присваивать начальное значение 
индексу оператора DO, а затем передавать управление на этот опера¬ 
тор, как это показано в следующем примере: 

1 = 3; 

GO ТО А; 

DO 1 = 1 ТО 10; 

А: __ 

END; ’ 

Такая передача возможна в операторе DO первого типа. 
Единичный проход цикла заканчивается, когда он достигает опе¬ 
ратора END. Часто бывает необходимо закончить выполнение какого-то 
определенного прохода в середине цикла и начать новый проход цикла 
с помощью оператора передачи. Для того чтобы выполнить эту зада¬ 
чу, необходимо передать управление на оператор END, а не на опера¬ 
тор DO. Например, 

A: DO 1 = 1 ТО 10; 

IF X<Y THEN GO TO В; 

В: END; 

Этот пример не аналогичен следующему; 

A: DO 1 = 1 ТО 10 WHILE (X<Y); 

В: END; 

Он также не аналогичен такому примеру: 

A: DO 1 = 1 ТО 10; 

IF X<Y THEN GO TO A; 

B: END; 

В последнем примере при выполнении конструкции THEN управление 
передается на оператор DO и I будет равно 1. Это вполне допустимо, 
но смысл этого примера в корне отличается от смысла двух ранее при¬ 
веденных примеров. Если тщательно не следить за организацией цик¬ 
ла, то может произойти зацикливание. 
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Переменная с индексами может быть модифицирована внутри цик¬ 
ла. Необходимо только тщательно следить за правильной записью ус¬ 
ловия окончания цикла. 

Операторы DO могут быть вложены один в другой. Каждый вну- _ 
тренний оператор DO должен быть полностью вложен во все другие 
операторы DO, которые его содержат. Не допускается применение опе¬ 
раторов DO, как это показано в следующем примере: 

A: DO 1 = 1 ТО 10; 

В: DO J = 2 ТО 15; 

END А; 

END В; 

В конце каждого оператора DO должен стоять оператор END. Однако 
^допускается написание одного END для нескольких DO при условии, 
"что самый последний оператор END помечен той же меткой, что и 
внешний оператор DO, как это показано в примере: 

A: DO 1 = 1 ТО 10; 

DO J = 1 ТО 20; 

DO X = 50 BY -1 ТО 45; 

END; 

END A; 

В этом примере оператор END А; относится к «циклам I и J», а 
«цикл X» имеет свой собственный оператор END; (В подмножестве 
ПЛ/1 каждый оператор DO должен иметь собственный оператор END; 
употребление END метка; запрещено). 

Другими словами, если за оператором END следует метка, то этот 
оператор сообщает об окончании не только группы с этой меткой, но 
' и всех групп DO, вложенных в нее. Если в оператор END метка не 
включена, то он сообщает об окончании группы DO, стоящей непо¬ 
средственно перед этим оператором. 

Если группа операторов DO заканчивается общим оператором 
ЕЩ то передача управления на общий END воспринимается как 
окончание данного прохода через внешний цикл DO, независимо от 
того, внутри какой вложенной группы DO появился оператор передачи 
' управления. Например, если необходимо произвести проверку и, 
возможно, закончить выполнение данного прохода через внутреннюю 
группу DO, нужно передать управление на оператор END только для 
этой группы DO. 
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В сегменте программы 

A: DO I = 1 ТО 6; 

DO j = 5 ТО 10; 

IF Х<0 THEN GO ТО С; 

С: END А; 

если I равно 2, a J равно 6, то при выполнении GO ТО управление будет 
передано на внешнюю группу DO, I будет приращено до 3 и т. д. 
Если нужно ограничиться проходом только внутреннего цикла, про¬ 
грамма должна быть записана следующим образом: 

A: DO 1 = 1 ТО 6; 

В: DO J = 5 ТО 10; 

IF Х<0 THEN GO ТО С; 

С: END В; 

END А; 

4.8. ОПЕРАТОР IF 

Общая форма этого оператора имеет вид: 

[метка: ...] IF выражение THEN блок 1; 

[ELSE блок 2]; 

Блок 1 и блок 2 могут быть отдельными операторами, а также бло¬ 
ками DO или BEGIN (см. главу 6). .Каждый блок может быть операто¬ 
ром GO ТО или другим оператором IF. Каждая конструкция ELSE 
в группе вложенных друг в друга операторов IF ассоциируется с вну¬ 
тренней конструкцией THEN, последняя не зависит от собственной 
конструкции ELSE. В результате этого конструкция ELSE, за кото¬ 
рой следует нулевой оператор (ELSE); может при необходимости обра¬ 
зовать пару с непосредственно предшествующей конструкцией THEN. 
Выражение в операторе IF не может быть выражением типа массива. 

Если конструкция ELSE опущена, то «выражение», следующее за 
IF, вычисляется и, в случае необходимости, преобразуется в строку 
битов. Если один из битов равен единице, то (если в конструкции 
THEN не было передачи управления на другой оператор) выполняет¬ 
ся конструкция THEN, за который идет следующий оператор програм¬ 
мы. Если все биты в выражении равны 0, то конструкция THEN про¬ 
пускается, и выполняется следующий оператор программы. 

Если конструкция ELSE записана, то «выражение» вычисляется 
и, при необходимости, преобразуется в строку битов. Если один из 
битов равен единице, то выполняется конструкция THEN, а кон- 



струкция ELSE игнорируется, затем выполняется следующий за 
ELSE оператор программы, при условии, что в конструкции THEN 
передачи управления на другой оператор не было. Если все биты в вы¬ 
ражении равны 0, то конструкция THEN игнорируется, а выполняет¬ 
ся конструкция ELSE, а затем следующий за ELSE оператор програм¬ 
мы, при условии, что в конструкции ELSE не было передачи управле¬ 
ния на другой оператор. 

В параграфе 2.6 приводились примеры и блок-схемы, показывающие 
применение операторов IF, 

4.9. УПРАЖНЕНИЯ 


Короткие упражнения 

1. В следующем примере А= 127., В = 10., С = 5., D=’l 1101’В, Е = МО’В, 
а р = ’110ГВ. Какие значения получит каждое из приведенных выражений? 

а) — і D 

б) D | F 

в) D &Е 

г) — і (А<В) 

д) (A>B) I (В<С> 

е) D & Е I F I I D 

ж) D I I Е I-' F 

2. Если А = ’АВС’, В = ’DEFG’, С= (5)’Y’, D = (3)’XY’, то какие зна¬ 
чения получит каждое из приведенных выражений? 

а) А I I в і I D 

б) INDEX (А J I В I I D, *YX‘) 

в) INDEX (А I I В I I D. ‘YY‘) 

г) SUBSTR (В, 2, 2) I I А 

д) SUBSTR (В, 1, 2) I ( С ( I SUBSTR (В, 3) 

е) SUBSTR (REPEAT (А, 4), 9) 

3. Как будет интерпретирован оператор ПЛ/1А=В=С+ D; транслятором 
ПЛ/1? 

4. Пусть в следующем примере А = ’ll 1 ’В, В = ’10’В, С= ’1010’В. Ка¬ 
кие значения получит каждое из приведенных выражений? 

а) BOOL <А. В, С) 

б) BOOL (А I I В, -1 А, С) 

в) BOOL (С. В 1 I A. Q 

5. Пусть А — строка символов длиной 50. Напишите сегмент программы для: 

а) нахождения положения второго пробела в строке символов, допустив, 
что существует по крайней мере два пробела; 

б) перемены местами 10-го и 32-го символа. 

6. Пусть В — строка символов длиной 50. Напишите сегмент программы для: 

а) замены каждого нулевого бита на бит, равный единице, и каждого бита, 
равного единице, — на нулевой; 

б) замены 10-го бита на бит, равный единице, если он такрвым не является; 

в) проведения проверки строки слева направо и поиска первого вхождения 
в строку трех битов, равных 1. 

7. Пусть массивы А, В, С и D определены следующим образом: 


А 



/1 3\ /2 4> 


по 




Какие значения будут получены после выполнения следующих операций? 

а) А + В 
б А-С 

в) 2 + А*В 

г) В = В/ В ,1,1); 

д) А=А+А (2,2); 

е) С=С+С (2, 2); 

ж) А (1, «H-D (•, 2) 

з) С (2, *) + В <«, 3) 

и) SUM (А-В) 

к) PROD (А + В) 

л) DO Т= 1,2; 

DO J = 1,2; 

х a, j)=sum (А а, *' * с с л )г 

END; END; 

8. Сколько раз будут выполняться следующие операторы DO? 

а) В = 2 

DO L=1 ТО 6 WHILE (B<6); 

В = В + 1; 

L=L + 2; 

END; 

б) DO X=10 TO 8 BY-, 3; 


END; 

в) N=15; 

DO l = N/2 BY-2 WHILE (I> = 0); 
END; 

Г) ЕЮ K = I TO 10 BY 2; 

IF K>6 THEN K = K—1; 

END; 

д) DO LOOP = 3,2 TO 4.3 BY .3; 


END; 

9. Напишите следующие группы DO без операторов DO второго и третьего 
типа. Будьте внимательны, чтобы не изменить логику сегмента программы. 

а) DO WHILE (А+В>6); 

A=A+l; 

END; 

б) DO 1=1 TO 10, WHILE (X=Y); 
операторы цикла 

END; 

в) A : DO X=10 TO 9 BY—. 1; 
операторы 1-го типа 

В : DO CHAR= ‘ONE- , 'TWO', ‘THREE*; 
операторы 2-го типа 
END A; 
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10. Анкету, состоящую из 60 вопросов, заполняет большое количество лю¬ 
дей. На каждый вопрос дается ответ «да» или «нет». Результаты этого опроса для 
каждого лица перфорируются на карты с исходными данными в .виде строк битов 
(которые заключены в апострофы и сопровождаются буквой В). При ответе «нет» 
перфорируется 0, при ответе «да» — 1. Найдите, сколько людей ответило на во¬ 
просы следующим образом: на вопрос 10 ответили «да»; на вопросы 13, 14 или 
15 по крайней мере один ответ был «нет»; на один из вопросов 25 или 26 был дан 
ответ «да», в то время как на другой из этих вопросов — ответ «нет». Напишите 
программу для считывания всех перфокарт с исходными данными и печати сле¬ 
дующих результатов: сколько человек заполняли анкету и сколько из них отве¬ 
тило на вопросы 10, 13, 14, 15, 25 и 26 описанным образом. 

Задачи для программирования 

1. Аббе Трисеме разработал код, состоящий из трех цифр: 1—2 — 3. Эіст 
код имеет вид: 

А 111 J 211 S 311 

В 112 К 212 Т 312 

С 113 L 213 U 313 

D 121 М 221 V 321 

Е 122 N 222 W 322 

F 123 О 223 X 323 

G 131 Р 231 Y 331 

Н 132 Q 232 Z 332 

I 133 R 233 . 333 

Напишите-программу для декодирования сообщений с помощью алфавита 
Трисеме, применяя метод поиска по таблице. Сообщения состоят из строк сим¬ 
волов длиной 15 цифр. Каждая строка перфорируется на одну карту, а перед 
строкой цифр и после нее ставится по одной кавычке. В качестве заполнителя, ес¬ 
ли это необходимо, служит точка. Нужно запрограммировать метод поиска дпоич- 
ных чисел по имеющейся таблице. Приведенная на рис. 4.1 блок-схема иллю¬ 
стрирует этот метод. 

2. Имена многих людей (точное число неизвестно) отперфорированы на кар¬ 
тах в следующем порядке: кавычка, имя, по крайней мере один пробел, инициал 
второго имени (без точки), по крайней мере один пробел, фамилия, кавычка, по 
крайней мере один пробел, кавычка, имя, по крайней мере один пробел, и т. д. 
Напишите программу, которая считывает и печатает эти имена (одно полное имя 
и фамилию на строчке) в следующей форме: фамилия, запятая, пробел, имя, про¬ 
бел, инициал второго имени, точка. Можно допустить, что одно полное имя и фа¬ 
милия не превышают 40 символов. Например, если входные данные 

‘ROBERT J JONES* 'JAMES R SMITH', 
то выход должен быть; 

JONES, ROBERT J. 

SMITH, JAMES R. 

3. Перепишите пример (e) из параграфа 2.8 с помощью обозначений массива, 
введенных в этой главе. 

4. Общей задачей для естественных и социальных наук является решение 
уравнений, которые управляют изучаемой системой.Если эти уравнения имеют 
определенные характеристики, т. е. если они образуют так называемую совмести¬ 
мую линейную систему, то их часто легко решить при помощи исключения мето¬ 
дом Гаусса. Напишите программу для решения четырех совместных линейных 
уравнений: 

а 11 -^1 + а 12 Х 2 + а 13 *3 + а іі -^4 — К 

Й 21 + й 22 Х 2 + й 23 *3 + й 24 ^4 = К 

а зі Хі + Я32 Х 2 + а зз X* + а ЗІ Х і = b 3 

й 4 і Х г + а 42 Х 2 + а і3 Х 3 + a 4i Х 4 = Ь 4 
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Организация таблицы 


Начащ //я //4 <3/в Средняя 5JQ Ш 7/д HQuei; 

я а точно. 

Вход 



(где все а и Ъ — действительные числа, а все X — переменные), применяя алго¬ 
ритм исключения методом Гаусса. Далее дается описание алгоритма. 

а) Проверьте, является ли коэффициент а„ ненулевым. Производите пере¬ 
становку уравнений до тех пор, пока а п ф 0. По крайней мере один из ац дол¬ 
жен иметь ненулевое значение, в противном случае не может быть четырех неиз¬ 
вестных. 

б) Исключите переменную Xj из всех уравнений, но сначала умножьте обе 
стороньГпервого уравнения на одной то же число m t и вычтите полученное в ре¬ 
зультате уравнение из оставшихся уравнений. Метод получения для второго 
уравнения: 

Щ — <W fl n 

для третьего: 

Щ = а Я1 /а п 

для четвертого: 

т з — а и/ а іі 


ИЗ 


















После такого исключения уравнение будет иметь вид: 

011*1+ «12 *2+ 013 *3+ 014 *4 = &І 

(а 22 — т х а 12 ) Х 2 + (а 23 — т 1 а 13 ) Х 3 + (а 24 —m l a u )X i =^b 2 —m l b t 
(0 32 —/и 2 а 12 ) Х 2 + (а 33 —т 2 а 13 ) Х 3 + (а 34 /и 2 а 14 ) Х 4 = Ь 3 т 3 Ь г 

(а 42 — т 3 а 12 ) * 2 + ( а 43 — т а а із) *з + ( а 44 т а °и) *4 = ^4 т а Ьц 
Его можно записать в виде: 

011 *1 + 012 *2 + 013 *3 + 014 *4 = h 
022 *2 а<1 3 X, + 024 Х 4 = 

032 Х 3 -f- а 33 X 3 -)- 034 х 4 = Ь'з 
042 Х 2 + 043 Х 3 + 044 Х 4 = Ь\ 

где о 22 теперь равно (а 22 — («2і+и) а і2) и т. д. 

в) Описанным способом исключите значения Х 2 из уравнений 3 и 4, поль¬ 
зуясь уравнением 2. Производите перестановку уравнений до тех пор, пока а 22 ф 

Ф 0. Множитель будет равен a 3 Ja' 22 и т' г = а' 1г Іа' гг , а уравнение 3 будет иметь 
вид: 

(033 — (032/022) 02з) Х 3 + (а 3 4 — (032/022) 024) Х 4 = Ь'з —_&2 (03 2/022) 

г) Продолжайте работу до тех пор, пока уравнения не примут вид: 

0Ц *1 + 012 *2 + 013 *3+014 *4 = ^1 
022 *2 + 023 *8 + 024 * 4 = Ь 3 
033 *3 + 034 *4 — Ь'з 

044 ' * 4 — Ь'\ 1 

где знаки (’) показывают значения, полученные в результате предыдущих опе¬ 
раций. 

д) Окончательные значения X: Xj, Х 2 , Х 3 , Х 4 получаюі путем ооратои 
подстановки, т. е.: 

*4 = Ь'і" /044* 

Х 3 = (Ь'з — 034 * 4 )/0зз 

*2 = (Ьз — (а 2 3 *3 + 024 * 4 ))/022 

*1 = (&1-(012 *2 + 013 *3 + 014 *4))/0Ц 

подставляются в данном порядке. Этот метод можно применить для решения я 
уравнений с я неизвестными. Существует опасность, что при решении какой- 
либо системы с помощью этого метода что-нибудь может «пойти не так». Например, 
если одно уравнение представляет собой линейную комбинацию других,,то такая 
система не будет иметь единственного решения. Еще одна трудность может воз¬ 
никнуть в том случае, если одно из значений т станет слишком большим. Это мо 
жет случиться тогда, когда выбранное уравнение имеет ведущий коэффициент 
очень близкий к нулю. При написании программы допустите, что система не со 
держит такого рода трудностей. 

5. Еще один способ решения уравнений — способ последовательной ап 
проксимации. Четыре уравнения, приведенные в задаче 3, если а п фО, а 22 ф О 
°зз Ф 0, о 4 4 Ф 0, могут быть переписаны следующим образом: 

*1 = (Ьі 012 *2 018 *3 014 *4)/011 

*2 = (Ьг — 021 *1 023 *3 024 *4)/022 
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*3 — (Рз ^31-^1 ^32 -^2 a 3i^i)/ a 33 

Х 4 = ( b t a tl X x — а іг X 2 — a t3 X 3 )/a 4i 
Если все X первоначально принять равными 0, то в качестве первой аппроксима¬ 
ции можно считать: 

Хі = Ь 4 , х 2 = ь г , х 3 =ь 3 , х 4 =ь 4 

Затем эти значения могут быть подставлены в первое из приведенных ранее урав¬ 
нений для получения следующих значений Х и и процесс будет продолжен с но¬ 
вым Х х во втором уравнении, новым Х± и Х г в третьем и т. д. В результате про¬ 
должения такого процесса и при выполнении следующих условий: 

I °іі I ^ I а і2 I + I а із 1+1 а ц I 

I fl 22 I ^ I I + I а 23 I + 1 а 24 I 
I °33 I ^ I ЙЗІ I + I fl 32 I + I а 34 I 
I а 44 1 ^ I а 411 + I а 42 1 + I а 431 

Могут быть получены точные значения X. (Здесь символ | а | обозначает абсо¬ 
лютное значение а; абсолютное значение — это значение, не зависящее от зна¬ 
ка.) Заметим, что по крайней мере в одном из приведенных четырех условий 
должно выполняться строгое неравенство 1 . 

Напишите программу для решения системы из 4 уравнений методом по¬ 
следовательной аппроксимации. Сначала проведите проверку системы на схо¬ 
димость. Если система не сходится, напечатайте сообщение SYSTEM 
WILL NOT CONVERGE и закончите выполнение программы. Процесс решения 
продолжается до тех пор, пока разность между двумя последовательными 
аппроксимациями для каждого X не будет меньше, чем заданное число Е. В про¬ 
грамме считайте Е = 0.001. Напечатайте число аппроксимаций, необходимых 
для получения ответа с заданной точностью. 

6. Одной из классических задач является задача нахождения самого корот¬ 
кого пути для посещения коммивояжером всех нужных ему городов. Для реше¬ 
ния этой задачи можно воспользоваться методом случайных чисел или так назы¬ 
ваемым методом Монте-Карло. Напишите программу для определения самого 
короткого, пути посещения девяти городов с помощью алгоритма Монте-Карло, 
который выполняется следующим образом: 

а) Воспользуйтесь генератором случайных чисел вида RNt+i = RNt ■ А, 
где А = 237, RN — случайное число, RM X = 214748364. Выделяя 9 цифр млад¬ 
ших разрядов RN, определите контрольный путь. В контрольном пути цифры 
1—9 должны встречаться только один раз. Следовательно, для точного опреде¬ 
ления контрольного пути может потребоваться несколько случайных чисел. 
Например, если при генерировании контрольного пути получается случайное 
число 481559803, то цепочка контрольного пути будет 481593 или состоять только 
из 6 городов. Потребуется по крайней мере еще одно случайное число, скажем 
176980927. Это второе число даст цифры 762, что дополнит контрольный путь 
до цифр 48159372. 

б) Определите расстояния между городами по треугольной матрице, приве¬ 
денной далее. Согласно этой матрице город 1 находится в 55 милях от города 
9, а город 3 — в 150 милях от города 6. Расстояние контрольного пути 
481593762, полученного в шаге 1, равно 85 + 35 + 95 + 80 + 150 + 140 + 
-Ь 20 + 120, или 825 миль. 


1 Система должна быть также «неприводимой», т. е. одно уравнение или более 
не может быть получено из другого. Для того чтобы решить задачу, в данном 
примере допустите, что система является неприводимой. 
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РАССТОЯНИЕ МЕЖДУ ГОРОДАМИ, МИЛ Ь 


2 

3 

4 

5 

6 

8 


2 3 4 

75 105 95 

40 70 

80 


6 7 8 9 

60 50 35 55 

120 ПО 95 115 

150 140 125 150 

ПО 105 85 120 

50 65 60 80 

20 25 30 

20 10 
35 


7. Другим способом помочь коммивояжерѵ можно с помощью метода при¬ 
ращений. Его применение сводится к следующему. Выберите город, проскани¬ 
руйте матрицу расстояний в милях и выберите самый близкий к первому горец. 
Затем выберите самый близкий город ко второму и т. д. Это даст один путь. 

Затем начните этот процесс с какого-нибудь другого го- 

-рода. Повторяйте этот процесс, выбирая каждый город 

в качестве отправной точки. В конце концов, выбери¬ 
те самый короткий путь. 

_Напишите программу для нахождения самого ко¬ 
роткого пути между девятью городами, данными в 
задаче 6, с помощью метода приращений. Напеча¬ 
тайте пути и расстояния для каждой из девяти проб и 
~— самый короткий из этих девяти путей. 

В литературе можно найти описание еще несколь¬ 
ких алгоритмов для решения этой задачи. 

- 8. Механический метод кодирования и дедодиро- 

Рис. 4.2. вания сообщений основан на транслитерации сооб¬ 

щения в заданном порядке. Напишите программу, ко¬ 
торая кодирует или декодирует сообщения из 40 символов в зависимости от опи¬ 
сателя. Описатель CODE используется для кодирования, а описатель CLEAR — 
для декодирования, как это показано далее: 

а) Сообщение представляет собой матрицу из 8 строк и 5 столбцов. Напри¬ 
мер, сообщение «Эта программа должна быть написана на языке ПЛ/І» («THIS 
PROGRAM IS TO BE WRITTEN IN THE PL/1 LANGUAGE») будет иметь вид: 

Столбец 

1 2 3 4 5 

1 Т Н I S Р 

2 R О G R А 

3 М I S Т О 

Ряд 4 В Е W R I 

5 Т Т Е N I 

6 N Т Н Е Р 

7 L I LAN 

8 Q U A G Е 

б) Кодирование производится путем перемены местами строк и столбцов 
способом, о котором условливаются отправитель и получатель. Примером про¬ 
стого правила замены является перемена местами столбцов 5 и 1 и строк 2 и 8. 
В результате получится следующее декодированное сообщение: 
PHTSTEVAGGOISTMIEWRB1TENTPTHENNILALAOGRR 

Исходные данные для описанного выше примера перфорируются на карты 
в виде: 

‘CODE* ‘TH1SPROGRAMISTOBEWRITTENINTHEPLILANGU AGE' 

После считывания этой строки символов примените функцию SUBSTR 
для присвоения значения отдельных символов элементам массива. (Существует 
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более легкий способ присвоения символов, но он будет рассмотрен в одной из сле¬ 
дующих глав.) 

9. При размещении цифр в квадратах, как это показано на рис. 4.2, цифры 
от 1 до 8 могут быть расположены: 8! = 8і7.6-5»4»3і2« 1 = 40 320 
различными способами. Напишите программу, которая напечатает все те способы 
расположения цифр, при которых не будет последовательных чисел в смежных 
квадратах, по горизонтали, по вертикали или по диагонали. 

10. День недели для данной даты можно вычислить с помощью формулы 

DAY _ OF _ WEEK = ([2.6 M-0.2]+D+Y+[Y/4]+[C/4]- 2С) mod 7 

Дни недели обозначаются цифрами: воскресенье — 0, понедельник — 1 и т. д. 
М обозначает номер месяца. Январь и февраль считаются 11-м и 12-м месяцем 
предыдущего года, март—1-м месяцем, ..., декабрь — 10-м месяцем. D по¬ 
казывает день месяца, Y — год определенного столетия, С — столетие. Квад¬ 
ратные скобки означают целую часть числа. Например, [7.4] = 7 и [7] = 7. 
Выражение mod 7 показывает, что необходимо вычислить число в круглых 
скобках, разделить его на 7 и остаток хранить как результат. Для иллюстра¬ 
ции возьмем дату 4 июля 1776 г.: 

М=5, D = 4, Y = 76, С= 17 
[2. 6М-0.2] = [12.8]=12 
[Y/4] = [19] = [19] 

[C/4] = [4.2S]-4 

([2.6М- 0.2]+D+Y+[Y/4]+[C/4]— 2С) mod 7 = (12+4+76+19+4-34) mod7 = (81) mod 7 = 4 

Таким образом, 4 июля 1776 г. падает на четверг. Даты перфорируются на карты 
исходных данных. Они начинаются и заканчиваются апострофом (так, чтобы их 
можно было считывать как строку символов), и между ними должен быть хотя 
бы один пробел. Месяц перфорируется полностью, за ним идет один пробел, 
затем — день месяца, запятая и год. Напишите программу для считывания этих 
данных и печати каждой даты и дня недели, на который эта дата падает. (Обра¬ 
тите внимание на то, что в ПЛ/1 существуют встроенные функции, которые могут 
понадобиться при написании программы.) 


Глава 5 


ВВОД И ВЫВОД ДАННЫХ 


5.1. ВВЕДЕНИЕ 


Один из наиболее важных аспектов языков высо¬ 
кого уровня заключается в их способности легко обрабатывать раз¬ 
личные формы данных. ПЛ/1 обеспечивает передачу данных двумя спо¬ 
собами: непрерывным потоком и отдельными записями. В этой главе 
будет рассмотрена только обработка информации, поступающей в виде 
непрерывного потока. При этом способе обработки данные рассматри¬ 
ваются как непрерывный поток символов. 

Преобразование элементов данных из внешнего представления во 
внутреннее и из внутреннего во внешнее выполняется автоматически 
в процессе перезаписи информации. 

Передача информации непрерывным потоком осуществляется толь¬ 
ко двумя операторами: GET и PUT. Оператор GET отыскивает оче¬ 
редные элементы в потоке исходных данных, а оператор PUT на¬ 
правляет элементы в поток выходных данных. Существуют трй типа 
ввода-вывода данных непрерывным потоком: управляемый списком, 
управляемый данными и управляемый редактированием. Все эти типы 
будут рассмотрены в следующих разделах. 

В настоящей главе предполагается, что для ввода данных исполь¬ 
зуется стандартное системное устройство ввода (SYSIN), которым 
обычно является перфоратор, а для вывода данных — стандартное 
системное устройство вывода (SYSPRINT), которое обычно представ¬ 
ляет собой построчно печатающее устройство. Один из методов пре¬ 
образования данных к внутреннему представлению будет рассмотрен 
в параграфе 5.6. 

Для спецификации элементов данных, которые нужно обрабаты¬ 
вать, используется список данных. Он "необходим в случае ввода-вы¬ 
вода, управляемого списком, и ввода-вывода, управляемого редак- 
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тироВанием, и необязателен в случае ввода-вывода, управляемого дан¬ 
ными. Список заключается в круглые скобки, а отдельные элементы 
данных отделяются друг от друга запятыми. Функции элементов дан¬ 
ных зависят от того, предназначен ли список данных для ввода или для 
вывода. В следующих разделах настоящей главы такой список будет 
рассматриваться в связи с обсуждением различных способов обработки 
информации. 

5.2. ВВОД-ВЫВОД ДАННЫХ, УПРАВЛЯЕМЫЙ 
СПИСКОМ 

До сих пор мы рассматривали именно такую форму ввода-вывода. 
Для полноты картины кратко рассмотрим правила, существующие 
для нее. В предшествующих главах было приведено много примеров 
такого рода ввода-вывода. 

Обычный формат ввода данных имеет вид: 

[метка ■■■•] GFT LIST (список данных) [COPY]; 

обычный формат вывода данных имеет вид: 

г PAGE [LINE (w)] 1 

[метка: --] PUT | ЭЮР [(w)] J LIST (список данных); 

В параграфе 2.7 рассматривались дополнительные возможности 
применения команд PAGE, SKIP и LINE. Конструкция COPY обес¬ 
печивает печать потока вводимой информации в том виде, в каком 
сна перезаписывается с одного устройства на другое, и если вывод 
осуществляется построчным печатающим устройством, то каждый 
элемент данных будет отпечатан на отдельной строке в той форме, в 
которой он считан. Особенно ценной эта возможность оказывается при 
отладке программ, так как контрольные данные и результаты печата¬ 
ются одновременно. 

Список входных данных. Элементы данных в потоке ввода могут 
быть следующими: [ + | —] — арифметическая константа, [ + | —] —* 
вещественная константа, { + |—} — мнимая константа, константа, 
состоящая из строки символов, и константа, состоящая из строки би¬ 
тов. В комплексных числах перед мнимой константой до знака плюс 
или минус может быть пробел. По крайней мере один пробел и/или 
запятая отделяют элементы данных друг от друга. Знаки повторения 
запрещены. Строковые константы заключаются в кавычки, а после 
констант, состоящих из строк битов, ставится буква В. (В подмноже¬ 
стве ПЛ/1 употребление комплексных констант не допускается.) 

Элементы списка данных могут быть переменными, массивами пе¬ 
ременных, псевдопеременными или спецификациями повторения (при 
применении оператора DO), в которые могут входить все виды элемен¬ 
тов. Следует помнить, что каждый обязательно заключается в круглые 
скобки. Если для массива переменных нет спецификации повторения, 
то они передаются в виде-, причем самый правый индекс изменяет¬ 

ся быстрее всех остальных. 
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Если требуется оставить переменную в списке данных без изменения 
при выполнении определенного оператора GET LIST, то соответствую¬ 
щий элемент данных заменяется одним или несколькими пробелами, 
начало и конец которых задается запятой. Например, если данные от- 
перфорированы на карту таким образом: 

1, 2, 3, 4, Ь, 5 (Ь означает провел) 

и выполняется следующий сегмент программы: 

DO 1=1. 2; 

GET LIST (А. В. С); 

END; 

то при первом проходе через цикл А, В и С будут читаться соответст¬ 
венно как 1, 2 и 3. При втором проходе А будет присвоено значение 
4, текущее значение В останется без изменений, а С будет присвоено 
значение 5. 

Выполнение данного оператора GET LIST заканчивается, когда 
список данных исчерпывается, или по условию END OF FILE (конец 
файла). Если условия END OF FILE нет, то очередная команда ввода 
начнет сканирование вводимого потока данных с позиции, следующей 
сразу же за пробелом или запятой, которыми закончился последний 
элемент обрабатываемых данных. 

Список выходных данных. Список выходных данных состоит из 
переменных, массива переменных, псевдопеременных, выражений в 
виде элементов данных,' выражений типа массива, констант или спе¬ 
цификаций повторения перечисленных элементов. Если в списке 
данных встречается выражение, то сначала оно вычисляется, а затем 
результат вычисления выдается в поток выходных данных. 

Все элементы потока выходных данных разделены пробелами. Во 
время печати они располагаются на соответствующих стандартных 
местах. (Для транслятора уровня F системы IBM — это положения 
I, 25, 49, 73, 97 и 121). Но программист в своей программе может изме¬ 
нить эти позиции с помощью соответствующих управляющих карт. 

Вид элементов данных в выходном потоке зависит от их описате¬ 
лей. Двоичные данные преобразуются в десятичные. Строки битов 
заключаются в кавычки и в конце строки стоит буква В. Строки сим¬ 
волов печатаются в кавычках. 

5.3. езод-вывод, УПРАВЛЯЕМЫЙ данными 

В подмножестве ПЛ/1 ввод-вывод, управляемый данными, не 
употребляется. 

Метод ввода-вывода, управляемого данными, во многих отноше¬ 
ниях проще метода ввода-вывода, управляемого списком, так как при 
необходимости список данных может быть опущен. Кроме того, этот 
метод часто более удобен для проверки программы, так как выход 
представляется в форме оператора присваивания, а имя переменной 
и ее значение печатаются. 
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Общая форма ввода, управляемого данными, имеет вид: 

[метка:-"] GET DATA [(список данных)] [COPY]; 

Общая форма вывода, управляемого данными, имеет следующий 
вид: 

[ PAGE [LINE (w)] Л 

SKIP [<w)] DATA [(список данных)]; 

LINE (w) J 

Конструкции PAGE, SKIP, LINE и COPY служат для тех же 
целей, что и при вводе-выводе, управляемом списком. 

Оператор GET DATA. Элементы данных отделяются друг от друга 
запятой и/или одним или несколькими пробелами. В операторе GET 
конец набора входных данных задается точкой с запятой. Значения 
элементов должны иметь форму правильно определенных констант. 
Список данных необязателен. Имена переменных в потоке входных 
данных определяют, какие значения считываются, а положение точки 
с запятой определяет, сколько элементов передается после одного 
оператора GET. При желании может быть составлен и список перемен¬ 
ных. Обычно в него включаются имена переменных с тем, чтобы знать, 
какие данные считываются тем или иным оператором. Порядок разме¬ 
щения имен переменных в списке данных может не совпадать с поряд¬ 
ком, в котором они появляются в потоке входных данных, и, более 
того, появление каждой переменной списка в потоке входных данных 
необязательно. Однако если переменная и ее значение появляются 
в потоке входных данных, а в программе, которая определяет список 
данных, имя этой переменной отсутствует, то печатается сообщение 
об ошибке и этот элемент игнорируется. 

В качестве примера этого типа ввода данных рассмотрим сегмент 
программы: 

DO I = 1 то 3; 

GET DATA; 

PUT LIST (A-fB+C + D); 

Предположим, что данные отперфорированы на карте следующим 
образом: 

A=l, С = 2, B = 3, D=4; В = 10; С = 7. А = 6; 

При первом проходе цикла значения А, В, С и D соответственно 
равны 1, 2, 3 и 4, их сумма вычисляется и печатается. При втором про¬ 
ходе цикла значение В изменится на 10 и сумма 1 +10+2+4 будет 
вычислена и напечатана. При третьем (последнем) проходе цикла зна¬ 
чения С изменятся на 7, а А — на 6 и будет вычислена и напечатана 
сумма 6 + 10 + 7 +4. 

В ранее приведенном примере оператор GET DATA (А, В, G, D); 
мог бы служить переменной. Однако запись GET DATA (А, В, С); 
вызвала бы сообщение об ошибке, так как переменная D имеется во 
входных данных. 

Список данных, если он необходим, должен состоять только из 
имен переменных без индексов или имен массивов. Индексированные 
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переменные могут использоваться во входных данных. Например, 
пусть А объявлено массивом 10 X 10. Для чтения данных А (1, 2) = 
= 3, А (8, 7) = 2; применима либо команда GET DATA; либо команда 
GET DATA (А); после выполнения оператора GET изменятся толь¬ 
ко значения А (1, 2) и А (8, 7). Такой способ полезен, когда нужно про¬ 
читать только несколько значений из большого массива. 

Оператор PUT DATA. Способ, которым определяется текущее зна¬ 
чение переменной, задается описателями, которые ей приписываются. 
Эти значения имеют ту же форму, что и при выводе данных, управляе¬ 
мом списком. Переменные выводятся потоком, элементы разделяются 
пробелами, а за списком для оператора PUT DATA следует точка с за¬ 
пятой. Место печатаемых выходных данных определяется так же, как 
в операторе LIST при печати списка. Строки печатаются в кавычках, 
а после строки битов ставится буква В. 

Простой оператор PUT DATA обеспечивает вывод всех перемен¬ 
ных, известных к моменту выполнения оператора. 

Список данных необходим только в том случае, когда требуется 
напечатать некоторые значения переменных. Порядок их печати опре¬ 
деляется списком данных. Элементы списка данных при выводе мо¬ 
гут состоять из переменной (с индексами, или без них) или массива. 
В списке данных для вывода разрешены повторные спецификации при 
использовании операторов DO. Следует обратить внимание на то, что 
в отличие от вывода, управляемого списком, в выводе, управляемом 
данными, выражения и константы не применимы. 

5.4. ВВОД-ВЫВОД, УПРАВЛЯЕМЫЙ РЕДАКТИРОВАНИЕМ 

Из всех рассмотренных ранее операторов ПЛ/1 операторы ввода- 
вывода, управляемого редактированием, больше всего похожи на со¬ 
ответствующие операторы Фортрана. При передаче данных в непрерыв¬ 
ном потоке программист управляет форматом элементов данных в этом 
потоке. По существу, операторы ПЛ/1 в этом случае аналогичны опе¬ 
раторам Фортрана READ и WRITE с соответствующим оператором 
FORMAT. Если читатель знаком с оператором и спецификациями 
FORMAT в Фортране, то ему относительно легко овладеть материалом, 
изложенным в этом параграфе. 

Существуют два основных различия в подходе к формату в ПЛ/1 
и в Фортране. Первое заключается в том, что в ПЛ/1 спецификации 
формата либо могут включаться в команду ввода-вывода, либо, как 
в Фортране, могут употребляться в виде отдельного оператора. Второе 
различие, которое, пожалуй, более существенно, состоит в том, что 
спецификация формата для вводимого элемента данных относится 
только к элементу, находящемуся на внешнем носителе. Преобразова¬ 
ние из внешней формы во внутреннюю, определяемое описателями пе¬ 
ременной, производится автоматически. В противоположность этому 
подходу спецификация формата в Фортране предполагает преобразо¬ 
вание определенных внутренней и внешней форм. В результате такого 
ограничения при применении Фортрана программист вынужден согла¬ 
совывать тип формата, который он употребляет, как с типом перемен- 
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ной, так и с форматом выходных данных. Например, спецификация F 
в Фортране предполагает преобразование внешней формы числа с 
фиксированной точкой во внутреннюю форму с плавающей точкой. Спе¬ 
цификация формата F в ПЛ/1 предполагает преобразование любой 
внутренней формы во внешнюю форму с фиксированной точкой. 

Существует еще несколько мелких различий, о которых будет упо¬ 
мянуто в соответствующих параграфах. 

Общая форма оператора ввода, управляемого редактированием, 
имеет вид: 

[метка: --- ] OET EDIT (список данных) (формат) 

[(список данных) (формат)] — [COPY]; 

А общая форма оператора вывода, управляемого редактированием, 
следующая: 

[ PAGE [LINE (w)] I 

SKIP Rw)] EDIT (список данных) 

LINE (w) J 

(формат) [(список данных) (формат)]" - : 

Конструкции PAGE, SKIP, LINE и COPY при этом способе ввода- 
вывода служат тем же целям, что и при вводе-выводе, управляемом 
списком. 

Списки данных. Список входных данных может состоять из тех 
же самых элементов, разделенных запятыми, что и при вводе, управляе¬ 
мом списком, а именно: переменных, массива переменных, псевдопере¬ 
менных или повторных спецификаций (при использовании оператора 
DO), в которые могут включаться любые из перечисленных элементов. 
Список данных и каждый оператор DO обязательно заключаются 
в круглые скобки: 

(М, ( (А (I, J) DO 1=1 TO М BY 2) DO J = 1 TO 6). X, Y, Z) 

Порядок ввода входных данных в потоке определяется форматом, 
связанным со списком входных данных, а не с описателями перемен¬ 
ных. 

Список выходных данных может состоять из переменной, массива 
переменных, псевдопеременной, выражения, выражения типа массив, 
константы или повторной спецификации, состоящей из всех этих эле¬ 
ментов. Если в списке данных встречается выражение, то оно сначала 
вычисляется, а затем вводится в поток выходных данных, форма вы¬ 
ходных данных определяется спецификацией связанного с ними фор¬ 
мата. 

Если в списке данных встречается массив, то все его элементы в со¬ 
ответствии со спецификациями формата располагаются в порядке 
номеров строк, т. е. с самым быстрым изменением правого индекса. 

Форма данных в непрерывном потоке. Как при вводе, так и при 
выводе данных, элементы в потоке располагаются в зависимости от 
связанной с ними спецификации формата. В отличие от ввода-вывода, 
управляемого списком, и ввода-вывода, управляемого данными, эти 
элементы не разделяются автоматически друг от друга пробелом или 
специальным символом. Список данных определяет значения обрабаты- 
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ваѳмых данных, а список формата определяет порядок ввода-вывода 
этих значений в потоке. 

При выводе данных строки не заключаются в кавычки и после строк 
битов буква В не ставится. При вводе строк кавычки и буква В тоже 
не употребляются. 

Строки при выводе потока данных левоустановленные, а арифме¬ 
тические данные правоустановленные. Если спецификация ширины 
поля мала, то строки данных усекаются справа, а арифметические дан¬ 
ные — слева. 

Двоичные фиксированные константы и константы с плавающей 
точкой преобразуются при выводе в десятичные и во входном потоке 
должны иметь форму десятичных констант. 

Каждый элемент не печатается в каком-либо заранее определенном 
месте на печатающем устройстве и даже выполнение нового оператора 
PUT не приводит к тому, чтобы печать начиналась с новой строки. 
Элементы данных печатаются непрерывно один за другим, вдоль всей 
строки до полного ее заполнения. Затем печатающее устройство авто¬ 
матически передвигает бумагу на новую строку. Число символов, кото¬ 
рое может быть напечатано на каждой строке, и число строк на стра¬ 
нице зависят от устройства ввода. Программист может изменить их 
с помощью соответствующих управляющих карт. Элементы управле¬ 
ния форматом служат для прерывания непрерывного процесса печа¬ 
тания и получения желаемого размещения знаков. 

Формат. Формат в операторах GET или PUT бывает двух типов. 
Он может состоять из действительного списка элементов формата, 
разделенных запятыми. Он может также отсылать к метке, которая 
определяет оператор программы, содержащий действительный список 
форматов. Второй тип очень похож на оператор FORMAT в Фортране 
и называется в ПЛ/1 удаленным форматом (R -формат). 

В любом из этих двух случаев формат заключается в круглые скоб¬ 
ки. Удаленный формат обычно имеет вид: 

(R (метка) ) 

где метка может быть либо константой типа метки, либо переменной 
типа метки (ей приписывается постоянная величина), которая отсы¬ 
лает к R -формату. Спецификация R -формата имеет следующий вид: 
метка 1: [метка 2: ...] FORMAT (список спецификаций формата); она 
может находиться в любом месте блока, содержащего операторы GET 
или PUT. Оператор FORMAT пропускается при выполнении нормаль¬ 
ной последовательности программы, а применяется только оператора¬ 
ми GET или PUT, в которых метка представляет собой метку R -фор¬ 
мата. 

Следующие два примера иллюстрируют эти два различных типа 
формата. Они эквивалентны. 

PUT EDIT (I. X) (F (5), E (15,5)); 

PUT E DIT (I, X) (R (ABC) ); 

ABCJ FORMAT (F (5), E (15, 6) ); 

Отдельные элементы формата делятся на элементы формата данных 
и элементы управления форматом. При вводе или выводе информации 
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первый элемент в списке данных определяется элементом формата 
в списке форматов, второй элемент — вторым элементом формата и т. д. 
Если перед следующим элементом формата имеются какие-нибудь эле¬ 
менты управления форматом, то они выполняются до того, как значе¬ 
ние данных попадает в поток. Выполнение операторов GET или PUT 
заканчивается, как только закончится ввод-вывод соответствующих 
элементов данных в потоке, даже если в списке еще остаются элементы 
форматов, включая и элементы управления форматом. 

Если элементов данных больше, чем описано элементами формата, 
то список элементов формата повторяется с самого начала. Заметьте, 
что такой порядок несколько отличается от правил Фортрана. Чтобы 
проиллюстрировать это, рассмотрим такой R -формат: 

XY 1: FORMAT (SKIP. Е (20, 5), Е (15, 5). SKIP (2) ); 

Оператор PUT EDIT (A) (R (XYZ)); обеспечит печать со следую¬ 
щей строки и напечатает на ней текущее значение А в соответствии 
с форматом Е (20, 5). 

Оператор PUT EDIT (А, В) (R (XYZ)); обеспечит печать е новой 
строки и в соответствии с форматом Е (20, 5) напечатает на ней текущее 
значение А, а в соответствии с форматом Е (15, 5) — текущее значение 
В на этой же строке. Элемент формата SKIP (2) выполняться не будет, 
так как список данных исчерпан. 

Оператор PUT EDIT (А, В, С) (R (XYZ)); обеспечит печать с новой 
строки. На ней согласно формату Е (20, 5) будет напечатано текущее 
значение А и согласно формату Е (15,5) — текущее значение В. 
Поскольку элемент С еще остается в списке, будет выполняться спе¬ 
цификация SKIP (2), что приведет к пропуску двух строчек. В этом 
случае список формата исчерпан и его выполнение начинается снова. 
Спецификация SKIP приводит к пропуску еще одной строки и затем 
печатается текущее значение С в соответствии с форматом Е (20, 5). 

Следует всегда помнить, что если строка полностью не заполняется 
после выполнения одного оператора PUT, то печатающее устройство 
автоматически не передвигает бумагу на новую строку при выполне¬ 
нии следующего оператора PUT. Программист с помощью специфика¬ 
ций управления форматом обеспечивает вывод данных необходимым 
образом. 

Управление элементами формата. Элементы управления форматом 
не оказывают никакого эффекта на выполнение программы, если толь¬ 
ко они не встречаются раньше, чем исчерпывается список данных. В 
следующих описаниях предполагается выдача на печать и w может 
быть константой или выражением. Последнее вычисляется и преобра¬ 
зуется в целое число во время выполнения программы. 

Оператор PAGE вызывает прогон бумаги до первой печатаемой 
строки на следующей странице. 

Оператор SKIP [(w)] обеспечивает пропуск w строк, начиная от 
текущей строки. Следует отметить, что пропускается w— 1 строчка. 
Если число w опущено, то предполагается, что оно равно единице. 
Если w меньше или равно 0, то происходит возврат каретки без про¬ 
пуска строки. 
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Если значение ѵ/ настолько велико, что оно должно вызвать про¬ 
пуск числа строк, которое больше оставшегося на странице, то воз¬ 
никает условие ENDPAGE (которое будет рассмотрено далее), и по 
системе умолчания первая строка новой страницы пропускается, а 
SKIP , если он записан, игнорируется. (В подмножестве ПЛ/1 число w 
может быть только константой со значениями 0, 1, 2, 3.) 

Оператор LINE(w) обеспечивает передвижение бумаги на строку 
w текущей страницы. Заметьте, что эта команда определяет абсолют¬ 
ный номер строки на странице, в то время как оператор SKIP — 
относительное положение от текущей строки. Если строка, определяе¬ 
мая числом w, уже пройдена или если размер страницы не допускает 
печать, возникает условие ENDPAGE, и по умолчанию все строки 
данной страницы пропускаются, а бумага передвигается к первой 
строке новой страницы. Вариант LINE игнорируется 1 . 

Оператор X (w) определяет, что при выводе должно быть добавле¬ 
но w пробелов или пропущено w символов. Если число w меньше О, 
то оно принимается равным О 1 . 

Оператор COLUMN (w) определяет, что следующее поле начи¬ 
нается со столбца w текущей строки. Если столбец, определяемый 
числом w, находится за пределами размера строки или меньше едини¬ 
цы, то его значение принимается равным единице. Обратите внимание 
на то, что оператор COLUMN (w) определяет абсолютное положение 
на текущей строке, в то время как оператор X (w) — относительное 
положение. 

Оператор COLUMN (w) определяет колонку карты, с которой на¬ 
чинается ввод 1 . 

Элементы формата данных. Символы w, d, s и р могут быть кон¬ 
стантами или выражениями. Выражения вычисляются и преобразуют¬ 
ся в целые числа во время выполнения программы. (В подмножестве 
ПЛ/1 w, d и s должны быть десятичными целыми константами без 
знака, р — десятичной целой константой со знаком, w имеет следую¬ 
щие ограничения: для форматов А и X w < 256, для формата В w < 65, 
а для форматов Е и Fw< 33.) 

Е-формат с плавающей точкой. Общий тип такого формата Е (w, d 
[s]), где w— ширина поля в потоке ввода-вывода, d — число цифр, 
которые следуют за десятичной точкой, s — число цифр в мантиссе. 

При выводе данных это число является правоустановленным в поле 
шириной w и имеет следующую форму: 

[—] {s—d цифры}. {d цифры} Е (+| —} показатель степени из 2 цифр 

Показатель степени определяется так, чтобы старшая значимая 
цифра в мантиссе не была равна нулю. Если число s не определено, то 
оно принимается равным 1 + d. Если внутренняя форма представления 
данных преобразуется в число с плавающей точкой, то в том случае, 
когда усечение приводит к потере цифры справа, производится округ¬ 
ление. 


1 В подмножестве ПЛ/1 число w должно быть десятичной целой константой 
без знака, меньшей или равной 266. 
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Программист должен определять ширину поля w, достаточную для 
помещения в поле знака (если он минус), десятичной точки, мантиссы, 
Е и показателя степени, состоящего из двух цифр со знаком. 

При выводе данных внешняя форма представления с плавающей точ¬ 
кой следующая: 



где показатель степени — десятичная целая константа, состоящая из 
двух цифр, а мантисса — десятичная константа с фиксированной точ¬ 
кой. Если показатель степени опущен, то он принимается равным 0. 
Число может быть занесено на любое место поля с шириной w. Если 
десятичная точка задана, то она, а не значение d, определяет число 
цифр, следующих за десятичной точкой. Иными словами, d задает число 
знаков в мантиссе справа от предполагаемой десятичной точки. 
Примеры (Ь означает пробел) 

Гнутревнее _ Внешнее 





представление 



і, I) — 1П34Э.О/Е — U1 

7) ошибка, ширина 


ошибка, ширина 


F -формат с фиксированной точкой. Общая форма такого формата 
имеет вид: F (w [, d [, pH), где w задает ширину поля, d — число цифр, 
которые следуют за десятичной точкой, р — масштабный коэффи¬ 
циент, и, возможно, знак плюс или минус. 

При выводе данных это число является правоустановленным в поле 
шириной w. Если число w задано, то выполняется только его целая 
часть, без десятичной точки. Если заданы w и d, то десятичная точка 
помещается перед d правоустановленными цифрами. Если задано р, 
то обрабатываемая величина в Юр раз больше величины во внутреннем 
представлении. 

При вводе данных число может быть в любом месте поля шириной 
w. Если d не задано, то предполагается, что оно равно 0. Если d за¬ 
дано, то оно определяет число цифр справа от предполагаемой точки. 
С другой стороны, если точка занесена в поле, то она, а не d, опреде¬ 
ляет число цифр после точки. Если задан масштабный коэффициент 
р, то он умножает данные во внешнем представлении на Юр. 

Примеры (Ь означает пробел) 

Внутреннее Внешнее 

представление Формат представление 

4-19.ЧИ Kfi 7 Р ІАІ 1235 



Ь—123456.700 
235 


ьььь- 


ЬЬЬЬЫ 235 



1235 


1234.5670 


1234.57 
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С-формат комплексных переменных. (В подмножестве ГІЛ/1 упо- 
требление этого формата запрещено.) Общий тип С-формата: 

С (вещественное [’вещественное]) 

Если вторая спецификация «вещественное» опущена, то ее пред¬ 
полагают равной первой. Две спецификации «вещественное» опреде¬ 
ляют обработку вещественной и мнимой частей комплексного числа. 
Вещественными спецификациями могут быть Е, F или Р. Мнимое I 
как при вводе данных, так и при выводе их не используется. Знак 
перед мнимой частью печатается только в том случае, когда ее значение 
меньше 0 или когда она определяется спецификацией Р. 

P -формат шаблона. Этот вид спецификации формата подробно 
будет рассмотрен в главе 7; здесь он приводится только для сведения. 

A -формат строки символов. Общий тип такого формата: А [ (w) I. 

При выводе спецификации А обеспечивает преобразование элемента 
списка данных в строку символов длиной w. Эта константа левоуста¬ 
новленная. Она не заключается в кавычки. Если число w не задано, 
то оно предполагается равным ширине поля элемента в списке данных 
после необходимых преобразований. 

При вводе определение w требуется всегда. Оно показывает, что 
следующие w символов должны быть преобразованы в строку символов 
и помещены в поток выходных данных. 

Пример (Ь означает пробел) 


•АВС’ 

■АВС’ 

•АВС 

’АВС’ 


Внешняя 

форма 

АВС 


В-формат строки битов. Общий тип имеет вид: В [(w)] 

Эта спецификация предназначена для обработки строк битов и вы¬ 
полняется точно так же, как спецификация А. Кроме того, при вводе 
первые и последние пробелы игнорируются, а при выводе w обязатель¬ 
но должно быть задано, если только соответствующий элемент списка 
данных не представляет собой строку битов. Буква В и кавычки ни¬ 
когда не употребляются при выводе, а при вводе они могут быть опу¬ 
щены. 

Примеры (Ь означает пробел) 


Внутреннее 

представление Формат 
'ІІИГВ В 

•1111 ГВ В(5) 

•1111ГВ В(7) 

’11 Ш ’В В(3) 



] 




5.5. ДОПОЛНИТЕЛЬНЫЕ СВЕДЕНИЯ О ВВОДЕ-ВЫВОДЕ, 
УПРАВЛЯЕМОМ РЕДАКТИРОВАНИЕМ 

Список формата. Список формата, который всегда заключается 
в круглые скобки, либо следует сразу за списком данных, либо зада¬ 
ется отдельным оператором формата. Каждый элемент списка формата 




отделяется один от другого запятой. Общий вид списка формата имеет 
вид: 

{ элемент формата 1 Г , элемент формата 1 

п — элемент формата > I , п — элемент формата ... 

п (список формата) J L л (список формата) J 

В этой общей форме п представляет собой коэффициент повторения 
и может быть выражением, заключенным в круглые скобки или целой 
константой без знака. Если п — выражение, то во время выполнения 
программы оно вычисляется и при необходимости преобразуется в це¬ 
лое число. Если п меньше или равно 0, то определяемый им элемент 
формата или список формата пропускается. Если п — целое число, 
то оно должно отделяться от следующего элемента формата пробелом. 
(В подмножестве ПЛ/1 число п должно быть целой константой без 
знака.) Приведенные далее примеры иллюстрируют употребление этой 
конструкции. 

Списки элементов формата (F (9, 2), F (9, 2)) и (2F (9, 2)) эквива¬ 
лентны, так же как (A, F (9, 2), F (7, 2), F (9, 2), F (7, 2)) и (А, 2 
(F (9, 2), F (7, 2))). 

Список элементов формата ( (N) Е (120/ N, 7)) может служить для 
размещения N значений на первых 120 печатаемых позициях строки. 
Нужное значение N вычисляется во время выполнения программы 
(например, N может иметь значение 5, но не может иметь значения 50). 
Значение, которое при вводе присваивается переменной, может быть 
использовано в различных элементах списка формата. Например, 

GET EDIT (1, STRING, J, X) (F (2). A (1), F (2), F(J) ); 

В этом примере целое число I при вводе указывает длину строки 
символов STRING. Целое число J обозначает длину целого числа X. 

Возможность использования в списке элементов формата выраже¬ 
ний и рассмотренных методов записи — очень сильная сторона язы¬ 
ка ПЛ/1. С помощью R -формата программист может изменить формат 
во время выполнения программы, как это показано в следующем при¬ 
мере: 

GET LIST (X); 

IF Х= 1 THEN XYZ= LABEL_A; 

ELSE XYZ = LABEL_B; 

GET EDIT (А. В, C) (R (XYZ) ); 

LABEL_A: FORMAT (3 F (5) ); 

LABEL_B: FORMAT (2 F (6, 2), E (13, 6) ): 

В этом примере XYZ как метка должна быть объявлена описате¬ 
лем LABEL. 

При выборе элементов формата нужно учитывать, что коэффициент 
повторения, равный или меньший 0, вызывает пропуск этого элемента. 
В следующем операторе 

PUT EDIT (А, В, Q ( (I) F (6,2), (I — I) F (8,3), (2 —I) Е (15,7) ); 

значения А, В и С появятся при выводе в соответствии со следующими 
форматами (в зависимости от текущего значения I): 
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А ВС 

I <-2 F (8,3) F (8,3) F (8,3) 

I =-l F (8,3) F (8,3) E (15,7) 

I = 0 F (8,3) E (15,7) E (16,7) 

1 = 1 F (6,2) E (15,7) F (6,2) 

1 > 2 F (6,2) F (6,2) F (6,2) 

Смешение трех типов ввода данных в одной программе. Напомним/ 
что ввод данных, управляемый списком или редактированием, закан¬ 
чивается, когда список данных исчерпывается, а окончание ввода, 
управляемого данными, определяется точкой с запятой (закончить 
ввод можно и в результате выполнения условия «конец файла», но 
сейчас этот способ мы рассматривать не будем). Размещение входных 
данных для следующего оператора GET зависит от типа только что 
закончившейся передачи данных. 

После выполнения ввода в соответствии с LIST или DATA следую¬ 
щий символ, который передается в соответствующий оператор GET, 
относится к вводу по типу LIST, если этот символ отделяется от по¬ 
следнего элемента пробелом или запятой. Символ, следующий непо¬ 
средственно за точкой с запятой, вводится по типу DATA. При вводе, 
управляемом редактированием, следующим для передачи символом 
будет тот, который следует непосредственно за последним символом 
в последнем передаваемом элементе. 

При последовательной обработке операторов типа LIST или DATA 
дополнительные пробелы, стоящие впереди, игнорируются, но если 
следующий оператор GET управляется редактированием, нужно быть 
очень осторожным, поскольку в этом случае пропуски не игнорируют¬ 
ся. 

В качестве примера рассмотрим следующую последовательность 
операторов GET: 

GET LIST (А); 

GET ДАТА (В. О; 

GET LIST (D); 

GET EDIT (E) (F (3) ); 

GET EDIT (F) (X (2), F (5)); 

GET LIST (G); 

Если входными данными являются 

12.3 ЬЬ В = 456.7, C= 0.21;bbbl4.2b216bbb2345bb28bb 

(Ь означает пропуск), то подчеркнутые символы показывают располо¬ 
жение данных во входном потоке для различных операторов GET. 

Эффективное использования формата. Каждый элемент списка фор¬ 
мата генерирует программы, проверяющие необходимость преобразо¬ 
вания данных. Требования к памяти и время выполнения программы 
могут сократиться при уменьшении длины списка элементов формата. 
Например, следующие два оператора дают одинаковый выход: 

PUT EDIT (А. В. С, D) (А(3), Х(4), А(10), Х(2), А(5), Х(2), А(20)); 

И 

PUT EDIT (А, В, С, D) (А(7), А( 12), А(7), А(20)); 
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так же, как и следующие два: 

PUT EDIT (I. X) (Х(4), F(3), Х(7), F(5,2)); 

И 

PUT EDIT (I, X) <F(7), F( 12,2)); 

В том и в другом случае второй оператор лучше с точки зрения техники 
программирования. Подобный метод может применяться и при вводе 
для уменьшения длины списка' элементов формата. 

Часто программист бывает вынужден обрабатывать полученные дан¬ 
ные без управления внешней формой данных. Рассмотрим такой при¬ 
мер. 

На картах исходных данных в первых 25 колонках отперфорирова- 
ны фамилии рабочих; вслед за фамилиями, в колонках 26 и 27, отпер- 
форированы часы их работы. Необходимо считать эти данные и обра¬ 
ботать их. Следующий сегмент программы будет считывать фамилию 
первого рабочего, часы его работы, обрабатывать эти данные и затем 
при считывании второго элемента данных выдавать сообщение об ошиб¬ 
ке. 

IN; GET EDIT (ФАМИЛИЯ, ЧАСЫ) (А(25), F(2), Х(бЗ)); 

. (операторы обработки) 


GO ТО IN; 

Помните, что после того, как список данных исчерпан, X Г53) игно¬ 
рируется. 

Целью указанного сегмента был пропуск последних 53 колонок 
перфокарты. Это можно было выполнить и другими способами, напри¬ 
мер с помощью любого из следующих операторов GET: 

GET EDIT (ФАМИЛИЯ, ЧАСЫ) (COLUMN (1), А(25). F(2)); 

GET EDIT (ФАМИЛИЯ, ЧАСЫ, А) (А(2б), F(2),X(52). А(1)); 

GET EDIT (ФАМИЛИЯ, ЧАСЫ, В) (А(25). F(2), А(53)); 

где А и В представляют собой пустые строки символов длиной 1 и 5 
соответственно. Когда требуется прочитать и обработать много перфо¬ 
карт, последний сегмент более эффективен. 


5.6. ОПЕРАТОРЫ GET И PUT STRING 

До сих пор операторы GET и PUT рассматривались в связи с пере¬ 
дачей данных на внешнее устройство и обратно. В этом разделе опера¬ 
торы GET и PUT будут рассматриваться в связи с внутренним процес¬ 
сом пересылки данных. 

Для иллюстрации возьмем простой пример: переменная CARD 
задана описателем CHARACTER (80). 

В CARD хранится строка символов с отперфорированной фамилией 
в позициях 1—25. Позиции 26 и 27 показывают количество часов ра¬ 
бочего времени, а позиции 28 и 29 — количество часов сверхурочной 
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работы. Необходимо разместить эти элементы в различных ячейках 
памяти и обработать их. Оператор 

GET STRING (CARD) EDIT (ФАМИЛИЯ, РАБОЧИЕ ЧАСЫ, 

СВЕРХУРОЧНЫЕ ЧАСЫ) (А(25), 2F(2)); 

выполнит эту задачу. Оператор STRING показывает внутреннюю пере¬ 
сылку, a CARD — строку символов во внутренней памяти, которая 
должна сканироваться. 

Подобным способом можно воспользоваться оператором PUT для 
объединения данных во внутренней памяти в строку символов: 

PUT STRING (ОПЛАТА) EDIT (ФАМИЛИЯ, РАБОЧИЕ_ЧАСЫ* РАСЦЕНКА 
+ СВЕРХУРОЧНЫЕ_ЧАСЫ* СВЕРХУРОЧНАЯ-РАСЦЕНКА) (А(25). F(16,2)); 

В этом примере у слова «ОПЛАТА» должен быть описатель 
CHARACTER и оно должно иметь длину по крайней мере 40. 

Оператор STRING может служить для обозначения как строк сим¬ 
волов, так и строк битов со всеми тремя способами ввода-вывода. Но 
особенно часто он используется при вводе-выводе, управляемом ре¬ 
дактированием, так как при вводе-выводе, управляемом списком или 
данными, требуется, чтобы элементы данных отделялись друг от друга 
пробелами. А ввод-вывод, управляемый данными, требует еще нали¬ 
чия точки с запятой, что определяет конец перезаписи и операторов 
присваивания. 

Если набор данных состоит из двух типов перфокарт и на каждой 
в первой колонке отперфорировано 1 или 2 для указания типа перфо¬ 
карты, то с помощью следующего сегмента программы можно считы¬ 
вать эти перфокарты (такая операция может быть выполнена и без 
оператора STRING, как было показано в предыдущем параграфе.) 

IN; GET EDIT (ВХОДНЫЕ ДАННЫЕ) (А(80)); 

GET STRING (ВХОДНЫЕ ДАННЫЕ) EDIT (CODE) <А(1)); 

IF CODE = 1 THEN GET STRING 

(ВХОДНЫЕ ДАННЫЕ) EDIT (X, Y, Z) (X( 1),3F(8,2)); 

ELSE GET STRING (ВХОДНЫЕ ДАННЫЕ) EDIT (A, B) X(l), A(9), F(7))J 

В качестве другого примера рассмотрим набор данных, отперфо- 
рированных двумя разными операторами. Первый оператор перфори¬ 
рует фамилию в колонках 1—25, часы рабочего времени — в колонках 
26—27, часы сверхурочной работы — в колонках 28—29. Второй опе¬ 
ратор перфорирует фамилию в колонках 1—30, часы рабочего време¬ 
ни — в следующих двух колонках, а сверхурочные часы работы — в 
следующих за ними двух колонках. Все эти карты смешиваются в одну 
общую колоду. Один из способов прочитать эти пефокарты состоит 
в перфорировании кода I или 2 в колонке 80. Код показывает тип кар¬ 
ты. Затем карты считываются так, как это иллюстрирует следующий 
пример: 

IN; GET EDIT (ВХОДНЫЕ ДАННЫЕ) (А(80)): 

GET STRING (ВХОДНЫЕ ДАННЫЕ) EDIT (CODE) (Х(79), A( 1)); 

IF CODE - 1 THEN ABC —FMT1; 

ELSE ABC-FMT2; 

GET STRINO (ВХОДНЫЕ ДАННЫЕ) EDIT (ФАМИЛИЯ, РАБОЧИЕ_ЧАСЫ СВЕРХУ. 

РОЧНЫЕ_ЧАСЫ) (R (АВС))І 
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FMTli FORMAT (A(25), 2F(2)); 

FMT2; FORMAT (A(30), 2F(2)>; 

Этот метод перфорации требует специального кода в конце каждой 
карты. Проверку такого типа можно производить на любой заранее 
определенной колонке карты. В приведенном примере наличие перфо¬ 
рации в колонке 31 указывает на различие двух типов карт. 

5.7. ОПЕРАТОРЫ DISPLAY —REPLY 

Оператор DISPLAY обеспечивает воспроизведение сообщения на 
пульте оператора вычислительной машины. Ответ человека-оператора 
машина может потребовать с помощью оператора REPLY. 

Общая форма этих операторов имеет вид: 

[метка: ...] DISPLAY (выражение) [REPLY (символьная переменная)]; 

При выполнении этих операторов «выражение» вычисляется, пре¬ 
образуется в строку символов (если это необходимо) и затем воспроиз¬ 
водится на пульте. Максимальная длина этой строки зависит от при¬ 
меняемой аппаратуры. Обычно она достигает примерно 100 символов. 
Если ответ не требуется, то выполнение программы продолжается. 

Если же требуется ответ, то после выдачи сообщения выполнение 
программы прерывается и возобновляется вновь после ответа опера¬ 
тора в виде строки символов. Строка символов, которой отвечает опе¬ 
ратор, становится значением «символьной переменной» и может ис¬ 
пользоваться в программе. 

Примеры 

DISPLAY (‘КОНЕЦ РАБОТЫ'); 

DISPLAY (‘КОНЕЦ ШАГА' || N); 

DISPLAY ('ПОЖАЛУЙСТА РАСПЕЧАТКУ) REPLY (ИМЯ ОПЕРАТОРА): 

DISPLAY (‘НЕТ СХОДИМОСТИ ПОСЛЕ' II N||' ЦИКЛОВ. СЛЕДУЕТ ЛИ УМЕНЬШИТЬ НЕ¬ 
ВЯЗКУ НА АХ 10? ОТВЕТЬТЕ «ДА» ИЛИ «НЕТ») 

REPLY (ОТВЕТ); 

В двух последних примерах для получения ожидаемого ответа «ИМЯ 
ОПЕРАТОРА» и «ОТВЕТ» следует объявлять строками символов 
подходящей длины. В последнем примере ответ можно проверить 
с помощью оператора IF. После этого будут выполнены необходимые 
операции. 

Эти операторы следует применять только при абсолютной необ¬ 
ходимости, так как они могут резко уменьшить производительность 
процессора, к тому же оператор REPLY требует непосредственного 
вмешательства человека. Современные большие вычислительные си¬ 
стемы и так слишком загружают операторов, и программистам не 
следует добавлять им работы. Оператор DISPLAY целесообразен толь¬ 
ко для сообщения необходимой информации человеку-оператору: за¬ 
писи операций, проведенных в его отсутствие, или сообщений о воз¬ 
никших ненормальных ситуациях во время выполнения программы. 
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5.8. УПРАЖНЕНИЯ 


Короткие упражнения 

I. Если форма внутреннего представления переменной —764.87, то какова 
будет форма ее представления на внешнем устройстве при следующих форматах? 


F(8, 3) 

F<8) 

F(9, 3, 1) 
F(9, 3, —1) 
F(8, 1) 


E(10, 3) 


E(10, 2) 


E(9, 3) 
E(10, 3. 4) 
E(12,5) 


F(8, 0, 1) E(15, 2, 5) 

2. Массивы А, В и С одномерные, каждый массив содержит 64 элемента. 
В этих массивах хранятся вычисленные значения, которые можно напечатать 
без потери точности с помощью формата F (6,2). Напишите один оператор PUT 
EDIT, который: 

а) напечатает элементы массива А по одному числу на строке, с одним ин¬ 
тервалом между строк, по 16 чисел на странице; 

б) сделает то же самое, что в (а), но только с двумя интервалами; 

в) напечатает элементы массивов А, В и С тремя столбцами, с одним интер¬ 
валом между строк, 32 строки на странице; 

г) сделает то же, что в примере (в), но напечатает заголовки ARRAY А, 
ARRAY В и ARRAY С на каждой странице в центре над каждой колонкой. 
После заголовка две строчки должны быть пропущены. 

3. Массивы А и В одномерные, в каждом 64 элемента. Напишите оператор 
GET, который будет считывать данные в эти массивы при условии, что: 

а) имеются 64 перфокарты и на каждой карте содержится по одному зна¬ 
чению для массива А, которые отперфорированы в колонках 1—35, значения для 
массива В отперфорированы в колонках 40—75. В том и в другом случае числа 
отперфорированы с десятичной точкой; 

б) значения для массивов А и В отперфорированы поочередно в поле шири¬ 
ной 10 на 16 картах. Каждое число отперфорировано с десятичной точкой; 

в) отперфорированы значения для целого массива А, за ними — значения 
для массива В. Каждое значение занимает поле шириной 10 на 16 картах. Каж¬ 
дое число отперфорировано с десятичной точкой. 

4. Массив А имеет размерность (20,20) и каждому его элементу присвоено 
начальное значение 0; 

а) значение 12.76 было отперфорировано на карте в колонках 1—5 и был 
выполнен оператор GET LTST (X); Необходимо считать значения 13.2 и 15.75 
и хранить их в А (5,9) и А (7,18). Напишите оператор GET, который выполнит 
эти операции, и объясните, как нужно отперфорировать данные на одной карте; 

б) напишите оператор GET для считывания значений в главную диагональ 
массива А. Объясните способ перфорации карты данных. 

5. Напишите один оператор PUT, который эквивалентен следующим сег¬ 
ментам программы: 

а) DECLARE А(50); 

DO 1=1 ТО 30; 

PUT EDIT (A(l)) (SKIP, F(7, 2)); 

END; 

б) DECLARE A( 10, 30): 

DO 1=1 TO 10; 

DO J = 1 TO 30; 

PUT SKIP EDIT (A(I, J)) (F(7, 2)); 

END; END; 

в) DECLARE A( 10, 30); 

DO J=1 TO 30; 

DO 1=1 TO 10; 

PUT SKIP EDIT (A(I, J)) (F(7, 2)); 

END; END; 
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6. Напишите один оператор PUT, который обеспечит печать строки сим¬ 
волов 'ПЛ/1' точно в центре третьей строки новой страницы, а также напе¬ 
чатает 'PAGE Г в крайней правой части этой строки. Пусть размер строки равен 

7. Массив А объявлен FIXED (10, 4) с размерностью (5, 600). После вы¬ 
числения все эти значения необходимо напечатать. Напишите один оператор 
PUT, который обеспечит печать номера страницы в самой правой части первой 
строки каждой новой страницы. Пропустите две строки и затем напечатайте 
А (1, J), А (2, J), А (3, J), А (4, J), А (5, J) (J = 1, 2, .... 600) на следующих 
строках с одинаковыми пропусками на странице, длина строки 120. На одной 
странице можно напечатать только 30 строк. 

8. Если выполнить следующий сегмент программы, что должно быть напеча¬ 
тано? 

J = 0; 

DO 1=1 ТО 3; 

GET DATA; 

J = J+K — L; 

END; 

PUT DATA (J, K, L): 

карты данных: К = 1, L = 1; L = 2; К = 3; 

9. Пусть массив М объявлен описателями CHARACTER (30) INITIAL 

((30)'-'). Напишите сегмент программы для печати строчки тире на стро¬ 

ках 15, 17 и 35 новой страницы (длина строки 120). 

10. Массив А размерности (5, 5) заполнен положительными целыми чис¬ 
лами, которые меньше 10. Напечатайте А в виде массива 5 X 5 на новой 
странице. Каждое целое число в центре квадрата в один дюйм (один дюйм 
примерно 6 строчек и 10 символов). 

11. В наборе перфокарт на каждой карте отперфорировано, начиная с ко¬ 
лонки 1, число в соответствии с F (10, 4), а начиная с колонки 50 — число в со¬ 
ответствии с F (5). Напишите программу для считывания всех этих перфокарт, 
вычислите сумму всех положительных чисел и напечатайте результат. 

12. В смешанном наборе перфокарт имеются два различных типа карт. 
В первом типе перфокарт отперфорированы 1 в колонке 1 и число с десятичной 
точкой в колонках 10—20. Во втором отперфорированы число 2 в колонке 1 и 
строка символов (без кавычек) — в колонках 15—50. Какими различными мето¬ 
дами можно обеспечить считывание этих карт? 

13. Если приведенные операторы GET употреблены в одной программе и 
выполнялись в заданном порядке, каковы будут значения, которые присваи¬ 
вались различным переменным? 

GET DATA; 

GET LIST (X, Y); 

GET EDIT (A, B) (F(2), F(6.3)); 

GET LIST (C, D); 

Данные (b означает пробел): 

1 = 4 , J = 8, Z = 27.86; ЬЬ4. ЗЬЬ8. 72ЬЗІ46. 7213Ы5.7 

14. Перепишите следующие спецификации формата с помощью как можно 
меньшего числа спецификаций X: 

а) PUT PAGE EDIT (А. В, С, Х= , X) (Х(10), F(4), Х(4), А(8), Р(10,2), Х(15), А, Х(1), 
F<6. 2)); 

б) PUT EDIT (А, В, С, I, J) (SKIP, Х(5), 2 Е(20.6), Х(5), Е(20. 6). SKIP(2), F(6,l). Х(10), 
F(4)); 

Задачи для программирования 
1. Составьте таблицу значений для функции 

/(*. у) = ху + 3(х+у)\ 
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Программа должна считывать значения для XBEG, XEND, DX, YBEG, 
YEND и DY, а затем редактировать вывод в следующей форме: 

значения X должны распространяться от XBEG и не превышать XEND 
с приращениям» DX, а значения Y распределяться от YBEG и не превышать 
YEND с приращениями DY. Сначала должны быть отпечатаны все значения X, 
а затем — все значения Y; 

всякий раз,. как значение X меняется, оставляйте две пустых строчки. 
Не печатайте значение X каждый раз, а только тогда, когда его значение меняет¬ 
ся или когда запись начинается с новой страницы. Пронумеруйте последова¬ 
тельно каждую страницу в верхнем правом углу и напечатайте заголовки X, 
Y, F (X, Y) вверху каждой страницы, после чего оставьте две строчки пустыми. 
Не печатайте более 40 строчек на странице и расположите таблицу на одной 
странице. 

2. Два типа карт исходных данных смешаны в одну колоду. На картах пер¬ 
вого типа отперфорированы: единица — в колонке 1, фамилия — в колонках 
2—30, число часов рабочего времени — в колонках 31 и 32, сумма почасовой 
оплаты за эту работу в долларах и центах — в колонках 33—36. На картах вто¬ 
рого типа в колонке 1 отперфорирована цифра 2, в колонках 2—36 — те же дан¬ 
ные, что и в картах первого типа, в колонках 37—38 — количество часов сверх¬ 
урочной работы, в колонках 39—40 — сумма почасовой оплаты за сверхуроч¬ 
ную рботу. 

Напишите программу, которая будет считывать эти карты, а также печатать 
фамилию рабочего и его заработную плату (сразу же за фамилией). 

3. Смешанный набор перфокарт состоит из трех различных типов карт дан¬ 
ных. На картах первого типа отперфорированы цифра 1 в колонке 75 и дна 
целых числа в колонках 1—50. Эти числа разделяет по крайней мере один про¬ 
бел. 

На картах второго типа в колонке 75 отперфорирована цифра 2 и одно 
число с плавающей точкой отперфорировано в колонках 1—50. На картах 
третьего типа в колонке 75 отперфорирована цифра 3 и два числа с плавающей 
точкой в колонках 1—50. Эти числа разделены по крайней мере одним пробелом. 

Напишите программу для нахождения суммы всех чисел в каждом из этих 
трех типов карт и напечатайте результаты. 

4. Группе людей было предложено ответить на 80 вопросов. Ответы состоя¬ 
ли из слов «истинно» или «ложно», «да» или «гнет». Ответы «истинно» или «да» 
задавались цифрой 1, а «ложно» или «нет» —0. Фамилия каждого отвечающего 
перфорировалась на одной карте исходных данных в колонках 3—80. В колон¬ 
ке 1 перфорировалась буква М, если отвечающий был мужчиной, и F — если 
отвечающий был женщиной. На другой карте перфорировались цифры 0 
или 1 во всех 80 колонках. Они и представляли ответы на вопросы. 

Напишите программу, которая сначала считает эти две карты для опреде¬ 
ленного лица, напечатает фамилию, считает все оставшиеся карты и отпечатает 
фамилии тех людей различного пола, чьи ответы отличаются не более чем по двум 
вопросам. В каждом случае нужно включить номера вопросов, на которые полу¬ 
чены разные ответы. При написании программы проследите за тем, чтобы учи¬ 
тывались и полностью совпадающие ответы (не различающиеся друг от друга), 
а также за тем, чтобы выполнялись все указанные требования. 

5. В качестве исходных данных считывается набор оценок студентов от 0 
до 100. Обеспечьте печать гистограммы, показывающей число студентов, оценки 
которых от 0 до 10, от 10 до 20 и т. д. Пометьте оси, выберите для линий какой- 
нибудь символ и расположите график на одной странице. 

6. Нужно считать перфокарту, на которой отперфорированы X, Y, Z, I 
и J, показывающие заем в X долларов при Y процентах в год. Заем должен по¬ 
гашаться равными долями помесячно в сумме Z долларов (процент за невыпла¬ 
ченный взнос равен Y/12% невыплаченной суммы в месяц).Последний взнос мо¬ 
жет быть меньше Z долларов. Первый взнос необходимо погасить в І-й месяц 
J-ro года (образец данных: Х= 10,000.00, Y = 5.75, Z= 110.00, 1 = 7, 
J = 1971). 

Программа должна обеспечить печать суммы каждого взноса за весь период 
займа. Составьте таблицу, показывающую номер очередного взноса, месяц и 
год выплаты, сумму взноса, сумму процентов, оставшуюся сумму и итоговую 
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сумму. Организуйте таблицу в блоки, каждый блок должен соответствовать 
календарному году. После каждого календарного года обеспечьте печать суммы, 
уплаченной в качестве процентов, и суммы, добавляемой к общему взносу за 
данный год. Все входы в таблицу должны быть в долларах и центах, округлен¬ 
ные до ближайшего пенни, и все суммы должны указываться до пенни. Послед¬ 
ний взнос должен быть достаточным для того, чтобы покрыть текущие проценты 
и общую оставшуюся сумму. Последний взнос может быть меньше,чем Z. Распо¬ 
ложите таблицу по своему желанию, красиво напечатав заголовки, номера 
страниц и т. д. 

7. Напишите программу для считывания отрывка из текста, перевода его 
на язык «перевертыш» и печатания варианта перевода в отредактированы ій 
форме. В качестве знаков пунктуации в предложениях этого отрывка могут 
употребляться только запятые и точки. На язык «перевертыш» слово переводится 
следующим образом: буквы, стоящие до первой гласной, передвигаются в ко¬ 
нец слова и к вновь образованному слову добавляется окончание AY. Напри¬ 
мер, английские слова «pig latin» становятся «igpay atinlay»,a «table of values» 
становятся «abletay ofay aluesvay». 

Программа должна считать целые числа, которые определят, сколько сим¬ 
волов (включая пробелы) должно быть напечатано на одной строке. Для каждого 
параграфа справа и слева должны быть предусмотрены поля. Строка должна 
заполняться переведенным сообщением, пока слова укладываются в установлен¬ 
ный размер строки, а затем печать начинается на новой строке с того слова, 
которое не уложилось полностью на предыдущей строке. До начала печатания 
строки передвиньте последнее слово в крайнее правое положение и распределите 
дополнительные пробелы между словами (справа налево) на этой строке. Чем 
большую длину строки вы изберете, тем форма вывода будет лучше. 

8. Считайте отрывок из текста и напечатайте все встречающиеся в нем 
артикли THE вместе с двумя соседними словами. Затем напечатайте отредактиро¬ 
ванный текст полностью (как описано в упражнении), где все артикли THE 
будут подчеркнуты. Если можно использовать набор в 60 символов, то возь¬ 
мите для подчеркивания символ —; если нет, то возьмите знак минус. Как и 
в упражнении 7, программа должна обеспечить считывание целых чисел, кото¬ 
рые определят, сколько символов (включая пробелы) должно быть напечатано 
на одной строке. 

9. Выберите функцию у = f (дг) и напишите программу для изображения 
графика функции. Данные для считывания: XBEQ (начальное число х), 
XEND (последнее число х), N (число значений N). Пусть N < 200. Разметьте 
масштаб по оси х и напечатайте минимальное и максимальное значения у. 
Выберите масштаб значений у так, чтобы заполнить все доступное на странице 
место. 

10. «Мышь в лабиринте». Исходные данные: первая перфокарта — два 
числа с фиксированной точкой, которые задают число столбцов и рядов в лаби¬ 
ринте; следующие перфокарты — последовательность нулей и единиц, показы¬ 
вающих число квадратов в лабиринте. 

Пусть лабиринт представляет собой прямоугольный массив, в каждой пози¬ 
ции которого расположены нули и единицы. Мышь может двигаться только 
либо в горизонтальном, либо в вертикальном направлении и занимать только 
те позиции, в которых имеется единица. После считывания данных о лабиринте 
напечатайте его изображение в центре страницы. Пусть ваша мышь бегает во¬ 
круг лабиринта до тех пор, пока она не найдет вход, и затем продолжает искать 
дорогу через лабиринт из той точки, где она находится. Лабиринт может со¬ 
держать петли и тупики. Однако предполагается, что существует по крайней 
мере один путь через лабиринт и что, если их несколько, мышь может узнать 
любой путь, не обязательно самый короткий. Как только мышь найдет такой путь, 
напечатайте лабиринт в виде блока, состоящего из Х-ов, причем эти X должны 
быть заменены пробелами для обозначения пути, выбранного мышью. Не нужно 
выдавать на печать возможные пути выхода из лабиринта, по которым мышь 
в действительности не проходила, пути, по которым мышь пробегала, но не 
нашла выхода, а также пути, где мышь была вынуждена повторять свой путь 
(петли). 
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Глава 6 


БЛОКИ PROCEDURE И BEGIN 


6.1. ВВЕДЕНИЕ 


При составлении программ для решения производст¬ 
венных задач основной целью должно быть обеспечение их универсаль¬ 
ности и гибкости. Задачи, которые до сих пор приводились в этой кни¬ 
ге, за исключением первого примера из главы 2, состояли из одного 
блока процедур. Вследствие их специфического характера они яв- ( 
ляются простыми, короткими и их применение ограничено. Например, 
при составлении и отладке программ по сортировке (которые приво¬ 
дились в первых главах) было бы лучше писать программу так, чтобы 
она служила не только для решения какой-либо одной определенной 
задачи, но и для решения более общего типа задач по сортировке, т. е. 
было бы лучше создать алгоритм сортировки для обработки некоторого 
произвольного списка чисел и найти способ отделить программы ввода 
и вывода. Если бы это можно было сделать, то программа по сортиров¬ 
ке могла бы применяться как часть более широкой программы, где 
числа, которые подлежат сортировке, не нужно было бы обязательно 
считывать как первоначальные данные и не было бы необходимости 
немедленно их печатать. 

В тех случаях, когда программисту одному или совместно с дру- ! 
гими программистами нужно написать большие программы в виде одной 
процедуры, задачи выбора имен идентификаторов, управления и от¬ 
ладки с трудом преодолимы. Еще на ранних стадиях развития языков 
программирования признавалось необходимым иметь возможность 
написания, трансляции и отладки при относительно небольшом коли¬ 
честве операторов программ с достаточно общей формой представления. 
Такой метод работы не только помогает одному программисту в его 
непосредственной работе, но и позволяет создавать библиотеки отла-^ 
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женных сегментов программ, которые доступны и другим программи¬ 
стам. 

В Фортране такое обобщение достигается в результате применения 
подпрограмм функций и подпрограмм SUBROUTINE. Эти подпро¬ 
граммы транслируются отдельно, а затем объединяются с основной 
программой до начала ее выполнения. 

ПЛ/І позволяет программисту писать программу не только в виде 
блоков (как в Фортране), но и другими способами. В ПЛ/1 существуют 
два типа блоков: блок BEGIN и блок PROCEDURE. Они служат как 
для ограничения области действия имени идентификатора, так и для 
распределения и освобождения памяти. 

Программа на ПЛ/1 состоит из процедуры, которую программист 
обозначает как главную, употребляя слова OPTIONS (MAIN). Для 
большинства трансляторов эта процедура является первой. В про¬ 
грамме могут быть другие внешние блоки процедур, которые будут 
транслироваться отдельно и выдаваться по мере необходимости во вре¬ 
мя выполнения программы. В программе также могут быть другие вло¬ 
женные процедуры или блоки BEGIN внутри внешних процедур. Каж¬ 
дый блок начинается оператором BEGIN или PROCEDURE и закан¬ 
чивается оператором END. Для успешного применения метода бло¬ 
ков программист должен досконально понимать, какие идентифи¬ 
каторы в каких блоках локализованы (область действия имен), как 
блоки активизируются и как они заканчиваются, как информация 
проходит в блоки и из них. Эти вопросы будут рассмотрены в следую¬ 
щих параграфах. 

Материал этой главы очень труден. Поэтому ее необходимо прочи¬ 
тать дважды: сначала для того, чтобы уяснить себе основные идеи, 
а затем—для детального ознакомления. Хотя примеры в некоторых 
случаях довольно громоздки, они важны для понимания основных 
концепций, поэтому к ним надо отнестись очень внимательно. После 
рассмотрения нового материала целесообразно вернуться к более 
тщательному разбору примера в параграфе 2.1. 

6.2. ОРГАНИЗАЦИЯ И ХОД ВЫПОЛНЕНИЯ 
ПРОГРАММЫ 

Блоки процедур часто называют просто «процедурами». В своей 
простейшей форме процедура обычно имеет следующий общий вид: 

метка: [метка:...] PROCEDURE; 

END [метка]; 

Обратите внимание на то, что оператор PROCEDURE должен иметь 
хотя бы одну метку, так как именно по этому имени и вызывается блок 
процедур. В операторе PROCEDURE может содержаться и другая 
информация, но об этом будет сказано далее. Каждая процедура за¬ 
канчивается либо отдельным оператором END, либо оператором 
END, относящимся к другим процедурам, блоку BEGIN или группе 
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DO. Один блок (либо PROCEDURE, либо BEGIN) может быть вложен 
в другой блок. Такие блоки называются внутренними. Совмещения 
блоков быть не может. Каждый блок должен быть полностью вложен 
в другой аналогично тому, как вкладываются друг в друга группы DO. 
Блоки, которые ни в какой другой блок не вкладываются, называются 
внешними. Внешними могут быть только блоки процедур, а в каждой 
программе ПЛ/1 должна быть по крайней мере одна внешняя процеду¬ 
ра. 

Блок BEGIN имеет форму: 

[метка: ...] BEGIN; 

END [метка]; 

Обратите внимание на то, что метка в операторе BEGIN не обяза¬ 
тельна. Управление на блок BEGIN может быть передано оператором 
GO ТО, если оператор BEGIN помечен. 

Выполнение программы начинается с процедуры, которая объяв¬ 
лена программистом главной (см. параграф 6.1). Блоки BEGIN вы¬ 
полняются по мере их появления в программе (или указываются в опе¬ 
раторе ON, этот метод будет рассмотрен в главе 7), в то время как бло¬ 
ки процедур никогда не выполняются до тех пор, пока они не бывают 
вызваны. Если оператор внутренней процедуры появляется в програм¬ 
ме, то программа обходит всю процедуру в целом и все блоки, которые 
находятся в ней. Если процедура вызывается, то управление обычно 
возвращается на оператор, который следует сразу же за оператором 
вызова. 

Именем входа в процедуру служит некоторая метка или одна из 
меток оператора RPOCEDURE или ENTRY. 

Процедуры могут быть вызваны обращением к имени входа одним 
из следующих трех способов: оператором CALL, необязательным словом 
CALL в описателе INITIAL или обращением к функции. 

Метка оператора PROCEDURE называется первичной точкой входа 
в процедуру, в то время как метка в операторе ENTRY — вторич¬ 
ной точкой входа. Будем говорить, что процедура, которая начинает 
выполняться при обращении к точке входа, вызывается, а управление 
программой передается с блока вызова на точку вызова. В вызываемом 
блоке обработка начинается с первого выполнимого оператора, сле¬ 
дующего после точки вызова. Любая процедура может вызвать любую 
внешнюю процедуру, но вызвать внутреннюю процедуру, которая вло¬ 
жена в какую-либо другую процедуру, можно только при определен¬ 
ных условиях. Процедура может всегда вызвать процедуру, которая 
является по отношению к ней внутренней, но при этом вызываемая 
процедура не входит в другую внутреннюю процедуру. 

В качестве примера рассмотрим структуру программы, приведен¬ 
ную на рис. 6.1. 

Скобки с правой стороны расположены так, чтобы облегчить в 
дальнейшем понимание метода вложения различных блоков. Выпол¬ 
нение программы начинается с первого выполнимого оператора 
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в блоке А. Блоки А и G —внешние блоки процедур. Все другие 
блоки — внутренние. Заметьте, что блоки D и Е имеют один и тот же 
оператор END. X представляет собой вторичную точку входа в про¬ 
цедуру В. 

Внешняя процедура может быть вызвана любой другой процедурой, 
как внешней, так и внутренней. Она может быть вызвана по первичной 
точке входа или по вторичной точке входа, если такие имеются. Вну¬ 
тренние процедуры, которые находятся на одном и том же уровне 
вложения, могут быть вызваны той процедурой, в которую они вложе- 


141 























ны, или друг другом. Но процедура не может вызывать внутреннюю 
процедуру, которая вложена в другую процедуру. В ПЛ/1 процедура 
может также вызывать сама себя. Такие процедуры должны быть 
объявлены оператором RECURSIVE (это будет рассмотрено в парагра¬ 
фе 6.7). 

В примере, который был приведен на рис. 6.1, блок BEGIN С будет 
выполняться, как только он появится, либо сразу же за оператором 
а4, либо при выполнении оператора GO ТО С. Далее приводится таб¬ 
лица, в которой слева представлены блоки программы, а справа — 
те процедуры, которые могут быть вызваны операторами данного 
блока. 

А в (или X), D, О 

В D. G 

С В (или X), D. О 

D В (или X), Е, Q 

Е F. G 

F G 

G ни один не может быть вызван 

Заметьте, что процедура D не может вызывать процедуру F. Од¬ 
нако, употребляя вторичную точку входа, можно сделать процедуру 
F доступной процедуре D, например: 

Е; PROCEDURE; 
оператор еі 

Y; ENTRY; Р 
CALL F; 

F; PROCEDURE; 


Если процедура D вызывает процедуру Е в своей вторичной точ¬ 
ке входа (Y), то первым выполняемым оператором станет вызов про- ' 
цедуры F. Если процедура D вызывает процедуру в первичной точке 
входа, то в процессе выполнения процедуры оператор ENTRY про¬ 
пускается, а после него выполняется оператор CALL F. 

Если при вызове процедуры Е в первичной точке выполнение 
процедуры F не требуется, то введением оператора GO ТО непосредст¬ 
венно перед оператором ENTRY можно обойти выполнение оператора 
CALL F. Применяя такой метод, программист может вызывать про¬ 
цедуры, которые обычно бывают недоступны. 

Когда процедура вызвана, считают, что она становится активной 
и остается такой, пока не закончится. Способы окончания процедур 
будут рассматриваться в следующих параграфах. Важно очень четко 
понимать основную идею активизации и окончания блоков процедур 
и знать, как идентификаторы определяются и какие описатели их за¬ 
дают, поскольку от этого зависит связь имен идентификаторов между 
блоками. Распределение и освобождение памяти тоже зависят от по¬ 
нимания вопросов активизации и окончания блоков процедур. 
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Окончание программы. Программа будет выполняться и главная 
процедура будет оставаться активной до тех пор, пока не появится 
одно из следующих условий: 

а) в главной процедуре выполнение программы дойдет до по¬ 
следнего оператора END, это нормальный способ окончания програм¬ 
мы; 

б) управление перейдет либо на оператор STOP, либо на опера¬ 
тор EXIT. Это может произойти в любом месте программы, однако 
такое окончание программы нельзя считать нормальным; 

в) появится сообщение об ошибке, и либо операционная система 
прекратит выполнение программы, либо сам программист сделает это. 
(Управление программой в случае возникновения ошибок будет 
рассмотрено в главе 7.) 

Выполнение всех активных блоков заканчивается при любом из 
перечисленных условий, и выполнение программы прекращается. 

Окончание блоков процедур. Как только начинается выполнение 
программы, процедура, которая объявлена программистом главной, 
активизируется и остается активной в течение всего времени выполне¬ 
ния программы. Процедуры, которые вызываются, становятся актив¬ 
ными и остаются ими до тех пор, пока не появится одно из следующих 
условий: 

а) управление передается на операторы STOP или EXIT. Это 
приводит к прекращению выполнения программы и, следовательно, 
к прекращению выполнения всех блоков. Такое окончание не являет¬ 
ся нормальным; 

б) управление передается на оператор RETURN. Это означает 
передачу управления на вызвавшую процедуру. Продолжение выпол¬ 
нения программы зависит от метода, которым вызывалась процедура. 
Если она вызывалась оператором CALL, то выполнение продолжается 
с того оператора, который следует за оператором CALL. Если же 
процедура вызывалась необязательным словом CALL в описателе 
INITIAL или обращением к функции, то программа продолжается 
с того же самого оператора (примеры будут приведены в параграфе 6.5); 

в) управление переходит на оператор END данной процедуры. 
Если это END главной процедуры, то выполнение прекращается и все 
блоки заканчиваются; в противном случае оператор END действует 
как оператор RETURN; 

г) управление переходит на оператор GO ТО, который передает 
управление вне процедуры. Оператор GO ТО может также заканчи¬ 
вать несколько активных блоков полной передачей управления из 
группы вложенных блоков или процедур или из внешней процедуры, 
которая была ранее вызвана (пример такого окончания блоков будет 
приведен после рассмотрения вопроса об окончании блоков BEGIN). 
Оператор GO ТО должен передать управление на блок, который 
является активным. 

Окончание блоков BEGIN. Выполнение блоков BEGIN заканчи¬ 
вается при одном из следующих условий: 

а) управление передается на операторы STOP или EXIT, что 
приводит к прекращению выполнения программы; 
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оператор 33 



f: PROCEDURE; 
оператор // 
оператор /г 



END Ft 


оператор ез t 


END Е; 


С: рношті 


Рис. 6.2. Пример активизации и оконча¬ 
ния блоков 


б) управление передается на 
оператор END данного блока, 
тогда выполняется оператор, ; 
следующий сразу же за опе¬ 
ратором END. Однако так не 
случается, если блок BEGIN і 
используется как оператор ON 
(этот вопрос будет рассмотрен 3 
в главе 7); 

в) управление передается 
оператору RETURN, который 
в свою очередь передает управ¬ 
ление из блока процедуры, в ко¬ 
тором заключен блок BEGIN; 

г) управление передается 
оператору GO ТО, который в 
свою очередь передает управле¬ 
ние из блока BEGIN. Оператор 
GO ТО может также прекра¬ 
щать выполнение нескольких 
активных блоков путем пере¬ 
дачи управления из группы 
вложенных блоков или из внеш¬ 
ней процедуры, которая была 
вызвана. Оператор GO ТО дол¬ 
жен передать управление на 
блок, который является актив¬ 
ным. Как только приведенная 
на рис. 6.2 программа начнет 
выполняться, главная процеду¬ 
ра (А) активизируется и остает¬ 
ся активной в течение всего вре¬ 
мени выполнения программы. 

При выполнении оператора 
CALL G вызывается и стано¬ 
вится активной процедура G. 
Когда выполняется оператор 
END G, процедура G закан¬ 
чивается, и управление пере¬ 
дается на следующий оператор 
процедуры А, который активи¬ 
зирует блок BEGIN В. Опера¬ 
тор CALL С активизирует про- j 
цедуру С, которая в свою оче- 1 
редь активизирует процедуру 

D. (Теперь все блоки А, В, Си 
D активны.) Если X = Y, то опе¬ 
ратор RETURN передаст управ¬ 
ление оператору с2 и закончит 1 
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обработку процедуры D. Если X больше чем Y, то управление пере¬ 
ходит на оператор с меткой АВС, который может находиться в любом 
из блоков А, В, С или D, находящихся в момент передачи управ¬ 
ления в активном состоянии. Следующая таблица показывает ре¬ 
зультат выполнения оператора GO ТО АВС. 



ssa 

Блоки, которые оста¬ 
ются активными 

А 

В 

С 

D 

B, С, D 

C, D 

D 

А 

А, В 

А, В, С 

А, В, С, D 


Если X меньше Y, то выполнение оператора ENDD приведет 
к окончанию блока D и передаче управления на оператор с2. 

Управление возвращается на оператор с2, и блоки А, В и С теперь 
активны. Как только выполняется оператор END С (после прохода 
блока D), управление возвращается на оператор Ь2, а блок С заканчи¬ 
вается. Следующим должен выполняться оператор ЬЗ, который сле¬ 
дует за оператором CALL G. Последний опять делает активной про¬ 
цедуру G. Теперь активными являются блоки А, В и G. Остальная 
часть программы выполняется аналогичным образом, пока, наконец, 
не будет выполнен оператор END А, и блок А, который остается един¬ 
ственным активным блоком к этому времени, заканчивается, и вы¬ 
полнение программы прекращается. 

Блоки BEGIN, блоки процедур, группы DO могут заканчивать¬ 
ся одним общим оператором END, но тогда за оператором END долж¬ 
на следовать метка. Если END употребляется без метки, то он задает 
конец только того блока или оператора DO, который стоит непосред¬ 
ственно перед ним. Если оператор END употребляется с меткой, то он 
задает конец предшествующего блока или оператора DO, который 
имеет ту же самую метку, а также задает конец любых блоков или опе¬ 
раторов DO, которые входят в эту группу операторов и у которых 
нет своих собственных операторов END. (В подмножестве ПЛ/1 опе¬ 
ратор END не может определяться меткой и не может относиться к не¬ 
скольким операторам или блокам.) 

Во время трансляции программы в начале и в конце каждого бло¬ 
ка генерируются специальные группы команд, обеспечивающие акти¬ 
визацию и окончание блока в процессе выполнения программы. Та¬ 
кие группы команд называются прологом и эпилогом блока и служат 
для выделения и освобождения областей памяти, определения имен 
идентификаторов в блоке и установки оператора ON (что будет рас¬ 
смотрено в главе 7). Эти группы команд представляют собой часть каж¬ 
дого блока и требуют не'только памяти, когда блок активен, но также 
и машинного времени. Если программиста заботит объем памяти, 
требуемый для выполнения программы, то уменьшение числа исполь¬ 
зуемых блоков может дать экономию памяти. 
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6.3. ОБЛАСТЬ ДЕЙСТВИЯ ИМЕН 


В Фортране имена переменных определены только в той подпро¬ 
грамме, в которой они появляются. Единственным способом добиться, 
чтобы одно и то же имя присваивалось одной и той же переменной во 
всех подпрограммах, — это поместить его в операторе COMMON. 
В Фортране переменная X главной программы и переменная X под¬ 
программы — это не одно и то же. 

В ПЛ/1 область действия общих имен значительно расширена. 
Программист должен очень точно знать правила, определяющие 
области действия имен. 

Например, если при программировании блока, входящего в дру¬ 
гую программу, при использовании оператора GO ТО АВС; (где АВС 
находится в другом блоке) вы хотите, чтобы этот оператор точно вы¬ 
полнялся, метка АВС должна быть определена в блоке, содержащем 
оператор GO ТО. В аналогичной ситуации, если переменная АВС 
служила меткой в нескольких блоках, то не должно быть путаницы, 
к какому оператору относится переменная АВС. Чтобы этого не слу¬ 
чилось, каждый блок программы может иметь свой собственный опе¬ 
ратор DECLARE с целью объявления идентификаторов переменных, 
определенных в этом блоке. Обычно процедуры вызываются оператором 
CALL и данные могут передаваться в вызванную процедуру посредст¬ 
вом аппарата формальных и фактических параметров аналогично то¬ 
му, как это происходит в Фортране. Например: 

A: PROCEDURE; 

DCL X FIXED (6), Y CHAR(IO); 


CALL B(X, Y); 


END A; 

B: PROCEDURE (C, D); 

DCL C FIXED (6), D CHAR (10); 


END B; 

В операторе CALL переменные X и Y называются фактическими 
параметрами, а в операторе PROCEDURE переменные С и D называ¬ 
ются формальными параметрами. Более детально вызов процедур 
будет рассмотрен в параграфе 6.5. 

Внутренние и внешние описатели. Если идентификатор описан 
описателем INTERNAL, то его имя определено только в блоке, в ко¬ 
тором он объявлен, и во всех блоках, которые в него вложены. Если 
же идентификатор описан описателем EXTERNAL, то его имя опре¬ 
делено в блоке объявления, во всех вложенных в него блоках, а также 
во всех внешних блоках, где описателем EXTERNAL описан тот же 
самый идентификатор. 
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Эти описатели могут описывать идентификатор либо в составе 
оператора DECLARE, либо по умолчанию. Описатель EXTERNAL, 
как правило, описывает по умолчанию имена входа и переменные 
STATIC (см. следующий параграф), в то время какописатель INTER¬ 
NAL обычно описывает по умолчанию остальные идентификаторы. 
Внешние идентификаторы могут состоять не более чем из 7 символов. 
Когда дело касается одного и того же имени, нужно очень тщательно 
следить за тем, чтобы при каждом объявлении каждый идентификатор 
с описателем EXTERNAL определялся одними и теми же описателями. 
Программист должен помнить, что в этой ситуации, даже если какой- 
либо описатель явно не указан, то его определяют по умолчанию, 
а объявление описателя EXTERNAL в другом блоке не должно проти¬ 
воречить данному описанию. (В подмножестве ПЛ/1 идентификаторы 
EXTERNAL не должны состоять более чем из 6 символов.) 

Идентификаторы в программе могут объявляться явно, по контекс¬ 
ту или неявно, и этим объявлением определяется область действия их 
имен. 

Явное объявление. Идентификаторы объявляются явно при их опи¬ 
сании оператором DECLARE, при их использовании в качестве метки 
оператора (в этом случае их определяет описатель метки оператора 
типа константа), при их появлении в списке параметров (в этом слу¬ 
чае их определяет описатель параметра) или при их использовании 
в качестве метки операторов PROCEDURE или ENTRY (в этом слу¬ 
чае их определяет описатель ENTRY). 

Область действия явного объявления распространяется на весь 
блок, в котором сделано это объявление, исключая все внутренние 
блоки, в которых один и тот же идентификатор имеет другое явное 
объявление. 

Объявление по контексту. Если идентификатор явно не объявлен 
в блоке, где он используется, или в одном из вложенных в него блоков, 
то в определенных ситуациях он может быть определен по контексту. 

Область действия объявления имен по контексту такая же, какой 
она была бы, если бы идентификатор описывался оператором 
DECLARE, находящемся во внешней процедуре. 

Идентификаторы, которые не были описаны явно, определяются по 
контексту следующим образом: 

а) идентификаторы, стоящие перед знаком равенства в операторах 
присваивания, перед знаком равенства в операторе DO и в списке 
данных оператора GET, считываются переменными, если они не вклю¬ 
чены в список фактических параметров или если за ними непосредст¬ 
венно не следует список фактических параметров; 

б) идентификаторы, стоящие в операторах ON CONDITION, 
SIGNAL CONDITION или REVERT CONDITION (см. главу 7), 
считаются по контексту именами условий, определенными программи¬ 
стом; 

в) идентификаторы в операторе CALL, в слове CALL описателя 
INITIAL (см. параграф 6.5) и те, которые служат для обращения к 
функции (см. также параграф 6.5), считаются описанными описателя¬ 
ми ENTRY и EXTERNAL. 
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Неявное объявление. Если имя не объявлено явно или по контексту, 
то его объявляют неявно и описатели определяются по умолчанию. 
Область действия имен при неявном объявлении такая же, как при 
явно объявленном идентификаторе в операторе DECLARE в начале 
внешней процедуры, в которую входит этот оператор. 

Пример на рис. 6.3 может проиллюстрировать область действия 
имен в программе (см. также табл, на с. 149). 

0.4. РАСПРЕДЕЛЕНИЕ ПАМЯТИ 

В исходном языке, таком, как ПЛ/1, имя переменной в действи¬ 
тельности представляет место, отведенное для хранения значения пе¬ 
ременной в памяти машины во время выполнения программы. В дан¬ 
ной программе ПЛ/1 часть оперативной памяти распределяется с са¬ 
мого начала программы и сохраняется до окончания выполнения 
этой программы. С другой стороны, часть памяти может служить 
только для временного пользования, а затем должна быть осво¬ 
бождена. 
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оператора 

Имя 

Объявление 

Применение имени 

Область 

1 

А 

явное 

! внешнее имя входа 

А, В, С, D 

2 

X 

явное 

внешняя фиксирован¬ 
ная переменная 

А, С, D.HO не 
В и F 

2 


явное 

внешняя фиксирован¬ 
ная переменная 

А, В, но не С, 
D и F 



явное 

метка оператора 

А, В, но не С и D 



по контексту 

внутренняя переменная 
с плавающей точкой 

А, С, но не D 
и В 

4 

В 

явное 

метка оператора 

А, В, С, D 

5 


явное 

внутренняя переменная 
с плавающей точкой 

В 

7 


явное 

внутреннее имя входа 

А, В, С, D 

8 


явное 

внутренняя переменная, 
с плавающей точкой 

C.D 

9 

АА 

явное 

метка оператора 

С, D 

9 

9 

9 

W 

Y 

Z 

по контексту 

(то же самое, 1 
(то же самое, ч 

внутренняя переменная 
с плавающей точкой 
іто Y в операторе 8) 
то Z в операторе 3) 

С, D 

10 

D 

явное 

внутреннее имя входа 

С, D 

11 

Z 

явное 

внутренняя переменная 
с плавающей точкой 

D 

16 

Е 

явное 

внешнее имя входа 

А, В, С, D, Е, F 

17 

X, Y 

явное 

переменная с плаваю¬ 
щей точкой 

Е, но не F 

17 

Z 

явное 

внутренняя переменная 
с плавающей точкой 

Е, F 

18 

А 

явное 

метка оператора 

Е, F 

18 

X, Y, Z 

(то же самое, что X, Y, Z в операторе 17) 

19 

F 

явное' 

внутреннее имя входа 

Е. F 

20 

X, Y 

явное 

внешняя фиксирован¬ 
ная переменная 

(то же самое, 
что X и Y в - 
операторе 2) 

21 

I 

по контексту 

внутренняя фиксирован¬ 
ная переменная 

F 


Существуют четыре различных метода, с помощью которых можно 
распределить память в программе на ПЛ/1, начиная от распределения 
памяти транслятором до полного управления программистом распре¬ 
делением и освобождением оперативной памяти для переменных. 
Распределение памяти может быть статическим (до выполнения про¬ 
граммы) или динамическим (во время выполнения программы). Могут 
быть указаны четыре различных класса памяти: STATIC, AUTOMATIC, 
CONTROLLED и BASED. Программист может воспользоваться этими 
описателями для объявления класса памяти переменной в операторе 
DECLARE. Три последних типа относятся к динамической памяти. 

Динамическая память освобождается по окончании выполнения 
блока, в котором находится данная переменная, или по команде про¬ 
граммиста, в зависимости от применяемого класса динамической па¬ 
мяти. Как только память освобождается, значение переменной утра- 
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чивается и последующее выделение области оперативной памяти для 
той же самой переменной не восстанавливает это значение. Наиболее 
вероятно, что переменной даже не будет выделена та ячейка памяти, 
в какой ее значение находилось раньше. Статическая память распре¬ 
деляется только один раз и не освобождается до конца выполнения 
программы. 

Правила по умолчанию. Все переменные, описатели класса памяти 
которых не объявлены явно в операторе DECLARE, считаются опи¬ 
санными описателем AUTOMATIC. Исключение составляют перемен¬ 
ные, описанные описателем EXTERNAL. При любом способе объяв¬ 
ления такие переменные считаются описанными описателем класса 
памяти STATIC. 

Статическая память. Всем переменным с описателем STATIC, 
объявленным по умолчанию или явно, память отводится еще до вы¬ 
полнения программы. Переменные этого класса памяти могут быть опи¬ 
саны описателями EXTERNAL или INTERNAL. EXTERNAL объяв¬ 
ляется по умолчанию. Присвоение первоначальных значений перемен¬ 
ным класса STATIC с помощью описателя INITIAL может производить¬ 
ся только один раз, во время распределения памяти. Например, вто¬ 
рое обращение к следующей процедуре приведет к нахождению зна¬ 
чения переменной А, равного 10 в начале этой процедуры: 

ABC: PROCEDURE; 

DCL A STATIC INITIAL (0); 


А = А+10; 

END ABC: 

Автоматическая память. Оперативная память для переменных с 
описателем AUTOMATIC распределяется во время активизации бло¬ 
ка, в котором находится эта переменная. Она освобождается после 
окончания выполнения блока, и значение переменной утрачивается, 
а область памяти может быть использована для других целей про¬ 
граммы. Все такие переменные считаются определенными описателем 
INTERNAL. Если переменная явно объявлена либо AUTOMATIC, 
либо INTERNAL. (но не тем и другим сразу), то отсутствующий описа¬ 
тель определяется по умолчанию. 

Переменной класса памяти AUTOMATIC память отводится вся¬ 
кий раз, когда вызывается блок, в котором она объявлена, и в данное 
время для данной переменной может существовать только такое рас¬ 
пределение памяти. Исключение составляет рекурсивное обращение, 
рассмотренное в параграфе 6.7. 

Управляемая память. Память для переменных с описателем 
CONTROLLED отводится и освобождается программистом с помощью 
операторов ALLOCATE и FREE (соответственно). Если память отве¬ 
дена оператором ALLOCATE, то она остается занятой даже после 
окончания выполнения блока, но ее нельзя использовать вне области 
действия этого идентификатора. (В подмножестве ПЛ/1 употребление 
описателей CONTROLLED, ALLOCATE и FREE не допускается.) 




В приведенном примере переменная А объявлена индексированным 
массивом, состоящим из 100 элементов; память не будет отводиться до 
входа в процедуру, а будет распределяться только тогда, когда будет 
выполнен оператор ALLOCATE, освободится она, когда будет выпол¬ 
нен оператор FREE: 

ABC; PROCEDURE: 

DCL A(100) FIXED CONTROLLED; 


ALLOCATE A; 


FREE A; 


END ABC; 

Переменные управляемого класса памяти могут быть перераспре¬ 
делены без первоначального освобождения памяти. Отведенная память 
«опускается» в магазин. Обращение к этой переменной в любом опе¬ 
раторе всегда происходит к той области памяти, которая выделялась 
только что перед этим, а не к любой другой, например: 

1. ABC; PROCEDURE; 

2. DCL A CONTROLLED; 


3. ALLOCATE А; 

4. А=В+С; 

6. ALLOCATE А: 

6. A = C+D; 

7. ALLOCATE А; 

8. A=E + F; 


9. FREE A; 

10. PUT LIST (A); 

11. FREE A; 


12. END ABC; 

(Числа слева только для ссылок) 
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Оператор (2) объявляет переменную A CONTROLLED, а память 
для А не отводится до выполнения оператора (3). Пусть В, С, D, Е и F 
получат значения 1, 2, 3, 4 и 5 соответственно. Оператор (4) присвоит 
значение 3 переменной А. Все последующие обращения к А вплоть 
до оператора (5) будут производиться к этой области памяти. Опера¬ 
тор (5) отведет новую область памяти, названную А (для удобства на¬ 
зовем .ее А', хотя в программе она определена как А). Оператор (6) 
присвоит переменной А' значение 5. Все обращения к А между опе¬ 
раторами (5) и (7) будут обращениями’к области памяти, которую мы 
называем А'. Память, отведенная для А в операторе (3), не осво¬ 
бождается, но на этом этапе выполнения программы использоваться 
не может, так как она была «опущена» в магазин. 

Оператор (7) отведет новую область памяти, названную А (мы бу¬ 
дем называть ее А"), и, следовательно, «опустит» ранее отведенную па¬ 
мять, сделав эти области временно недоступными. Любое обращение 
к переменной А между операторами (7) и (9) будет обращением к об¬ 
ласти А". 

Оператор (9) освободит область памяти, отведенную для перемен¬ 
ной А оператором (7), т. е. ту, которую мы называли А", а ту область, 
которую мы называли А', «поднимет» из магазина. Следовательно, 
выполнение оператора (10) приведет к тому, что значение, которое 
хранилось в области А', вернется в программу. Оператор (11) освобо¬ 
дит область А', а первоначальное значение «поднимется». Любое обра¬ 
щение к А в остальной части процедуры будет обращением к первона¬ 
чально выделенной области А. Эта область остается выделенной до тех 
пор, пока не будет выполнен еще один оператор FREE или пока не 
закончится выполнение программы. 

При использовании переменных управляемого класса памяти 
программист несет ответственность за распределение, освобождение 
памяти и расположение всех переменных этого типа в магазине. 

С помощью встроенной функции ALLOCATION (X) можно опре¬ 
делить, выделялась ли память для переменной CONTROLLED. Если 
память для X выделялась, то значение, присвоенное этой функцией, 
равно ’ГВ, если не выделялась, то оно равно ’О’В. (В подмножестве 
ПЛ/1 функция ALLOCATION запрещена.) 

Оператор ALLOCATE может также определять размерность и 
иметь некоторые другие описатели. 

Наиболее общая форма этого оператора следующая: 


ALLOCATE идентификатор [(размерность)] [описатель] [,••■] 


Описателями в операторе ALLOCATE могут быть 
BIT, CHARACTER или INITIAL. BIT и CHARACTER могут ис¬ 
пользоваться только с идентификаторами, которые были объявлены 
теми же описателями. Размерность должна быть такой же, какой она 
была объявлена в операторе DECLARE, хотя и необязательно должна 
иметь те же самые значения. 
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Пример 

DECLARE А(М, N) CONTROLLED; 


GET LIST (M, N); 

ALLOCATE А; А имев" размерность MXN 


ALLOCATE A (I, J); А имееі размерность 1 X J 


M = M-1; 

ALLOCATE A INITIAL I(M*N)0); А имеет размерность M X N 

В качестве примера функции ALLOCATION рассмотрим следующий: 

DECLARE А(М, N) CONTROLLED; 

IF—ALLOCATI О N (A) THEN 

ALLOCATE А(Ц J) INITIAL (<I*J10); 

Базированная память. Базированная память аналогична управляе¬ 
мой памяти: программист также полностью управляет распределением 
и освобождением памяти. В отличие от памяти класса CONTROLLED 
память класса BASED позволяет программисту выбирать любую пере¬ 
менную, «опущенную» в магазин, с помощью указателя переменной. 
Но этот метод распределения памяти в настоящей книге рассматри¬ 
ваться не будет. 

6.5. МЕТОДЫ ВЫЗОВА ПРОЦЕДУР 

В предыдущих разделах настоящей главы было показано, что при 
вызове процедуры идентификаторы определяются и для соответствую¬ 
щих переменных отводится память; когда процедура заканчивается, 
некоторые идентификаторы могут стать неопределенными и области 
памяти, занимаемые соответствующими переменными, освобождаются, 
их можно использовать для других целей. Как это происходит, 
зависит от того, является процедура внутренней или внешней, а также 
от описателей, которые определяют эти идентификаторы. Переменные 
с областью действия, включающей в себя несколько процедур, позво- 
ляют производить обмен информацией между процедурами. Эти пере¬ 
менные всегда определены. 

Добавочное средство «коммуникации» представляют собой факти¬ 
ческие и формальные параметры (см. параграф 6.3). Процедуры мо¬ 
гут выполняться либо как процедуры-функции, либо как процедуры- 
подпрограммы, так же как в Фортране выполняются подпрограммы- 
функции и подпрограммы. Роль списков фактических и формальных 
параметров определяется методом, применяемым при вызове проце¬ 
дуры. Процедуры-подпрограммы вызываются либо оператором CALL, 
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либо словом CALL в описателе INITIAL. Они могут передать многие 
значения в вызвавшую процедуру. Процедуры-функции вызываются 
по имени процедуры в выражении, за которым идут соответствующие 
фактические параметры. Этот метод очень похож на метод вызова встро¬ 
енных процедур в ПЛ/1. Результатом работы этих процедур может быть 
только одно значение. 

Фактические и формальные параметры. Фактические параметры 
могут быть выражением, меткой оператора, константой, переменной 
или именем входа. Они записываются в вызвавшей процедуре в виде 
списка, заключенного в круглые скобки, элементы которого разделены 
запятыми. 

Формальные параметры представляют собой соответствующий 
список идентификаторов, которые записаны в операторе 
PROCEDURE или ENTRY вызванной процедуры. Между элементами 
списка фактических параметров и элементами списка формальных па¬ 
раметров устанавливается взаимно-однозначное соответствие. При 
вызове процедуры имена элементов в списке фактических параметров 
проходят через список формальных параметров в вызванную проце¬ 
дуру. Передается фактически не само имя, а адрес ячейки памяти. 
Число фактических и формальных параметров должно быть одинаковым 
и они обычно должны определяться описателями одного и того же типа 
как в вызывающей, так и в вызываемой процедурах. Все имена в списке 
формальных параметров явно описываются как формальные парамет¬ 
ры. Формальные параметры не применимы в операторах ввода-вывода, 
управляемого данными. 

Следующий простой пример иллюстрирует использование факти¬ 
ческих и формальных параметров: 

ABC; PROCEDURE OPTIONS (MAIN); 

DECLARE (А, В. C) FLOAT DEC (8); 

GET LIST (А, В. C); 

CALL SUMPROD (А, В, C, SUM, PROD); 

PUT LIST (SUM, PROD); 


END ABC: 

SUMPROD; PROCEDURE (X, Y, Z, A, B); 

DECLARE (X. Y, Z) FLOAT DEC<8); 

A=X + Y+Z; 

B = X*Y*Z; 

RETURN; 

END SUMPROD; 

В главной процедуре переменные А, В, С, SUM и PROD представ¬ 
ляют собой фактические параметры, в то время как переменные X, 
Y, Z, А и В во второй процедуре—формальные параметры. Идентифи¬ 
каторы переменных А и В обозначают разные переменные в этих двух 
процедурах, так как область действия А и В одной процедуры не вклю¬ 
чает другую процедуру. Адреса ячеек памяти элементов в списке 
фактических параметров передаются процедуре SUMPROD во время 
выполнения оператора CALL. 
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Все изменения, которые происходят с переменными, определен¬ 
ными идентификаторами в списке формальных параметров в то время, 
как процедура SUMPROD активна, в действительности происходят 
и с соответствующими переменными, определенными идентификато¬ 
рами в списке фактических параметров (в нашем примере это 
X, Y, Z, А и В). 

Поскольку формальный параметр определяет нечто, чему уже 
присвоено имя, описатели формальных параметров должны согласо¬ 
вываться с описателями, задаваемыми соответствующими фактиче¬ 
скими параметрами. В некоторых случаях, например при употреб¬ 
лении констант, выражений, в которые включены операции, выраже¬ 
ний, заключенных в круглые скобки, или обращений к функции, 
фактический параметр может представлять только значение, а не 
идентификатор. В таких случаях создается фиктивный фактический па¬ 
раметр, который представляет ячейку памяти для этого значения. Про¬ 
граммисту эта ячейка памяти недоступна. Адрес этого фиктивного 
фактического параметра передается через формальный параметр в вы¬ 
званную процедуру. Любое последующее изменение этого формаль¬ 
ного параметра приведет к изменению значения в фиктивном факти¬ 
ческом параметре. Обычно в программе в качестве фактических пара¬ 
метров для передачи значений в процедуру могут выступать только 
константы, выражения, в которые включены операции, или обращения 
к функции, а значения соответствующих формальных параметров в вы¬ 
званной процедуре не изменяются. Например, если процедура 

FIRST: PROCEDURE (А, В, С, D); 

вызывалась оператором 

CALL FIRST (X + Y, CAT, DOG, SIN(X-Y)): 

то изменения формальных параметров В и С в процедуре FIRST бу¬ 
дут эквивалентны изменениям значений CAT и DOG после выхода из 
процедуры FIRST. Изменения формальных параметров А и D в про¬ 
цедуре FIRST приведут к изменениям фиктивных фактических пара¬ 
метров, представляющих собой адреса ячеек памяти, в которых хра¬ 
нятся -значения выражений X + У и SIN (X — Y) во время выпол¬ 
нения оператора CALL. После выхода из процедуры FIRST эти ячейки 
становятся недоступными программисту. 

Для того чтобы фактическим параметром могла служить констан¬ 
та, она должна иметь описатели, одинаковые с соответствующим фор¬ 
мальным параметром. Например, если процедура начинается таким 
образом: 

XY: PROCEDURE (А, В, С): 

DCL (А, В, С) DEC FIXED (5): 

то обращение к этой процедуре оператора CALL X Y (U, V, 2); приведет 
к ошибке (из-за константы 2), в то время как обращение оператора 
CALL XY (U, V, 00002); будет правильным. При этом предполагается, 
что переменные U и V ранее определены DEC FIXED (5). 

Процедуры-подпрограммы. Процедуры-подпрограммы обычно вы¬ 
зываются оператором CALL с необязательным списком параметров. 
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Информация в процедуру и из нее передается списком фактических 
и формальных параметров, а также включением области действия 
идентификаторов в процедуру, которую необходимо вызвать. 

Нормально подпрограмма заканчивается, когда программа достиг¬ 
нет последнего оператора END, оператора RETURN или оператора 
GO ТО, который передает управление оператору вне подпрограммы. 
В двух первых ситуациях управление передается на первый выпол¬ 
нимый оператор, следующий за оператором CALL, который вызвал про¬ 
цедуру. 

В случае употребления оператора GO ТО управление передается 
на оператор, имеющий метку, указанную в операторе GO ТО. В этом 
случае необходимо, чтобы имя этой метки было определено ко времени 
выполнения оператора GO ТО. Для этого имя метки может быть по¬ 
мещено в список фактических параметров подпрограммы, как это по¬ 
казано в следующем примере: 

ЛВС: PROCEDURE: 

DCL LAB LABEL: 


CALL XYZ(DOC, CAT, LAB); 


LAB: оператор 


END ABC; 

;;yz: procedure (Z, w, l>; 

DCL L LABEL; 


IF Z + W< 0 THEN GO TO L; 

END XYZ; 

В этом примере, если Z + W меньше 0, управление передается на опе¬ 
ратор с меткой LAB процедуры АВС. В противном случае управление 
передается на первый выполнимый оператор, который следует непосред¬ 
ственно за оператором CALL. Заметьте, что LAB определена явно как 
константа типа метки в процедуре ABC, a L должна быть объявлена 
меткой в процедуре XYZ. 

Процедуры-функции. Процедура-функция вызывается обращением 
к имени этой процедуры, содержащимся в выражении вызывающей про¬ 
цедуры. Обычно в процедуре-функции имеется список формальных па¬ 
раметров. Следующий пример может служить иллюстрацией такого 
типа вызова процедуры: 

ABC: PROCEDURE; 
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GET LIST (X, Y, Z); 

Z = Z+2*F0F(X, X+Y — 2); 


END ABC: 

Процедура-функция, к которой обращаются в этой процедуре, 
может быть проиллюстрирована следующим образом: 

FOF: PROCEDURE (А, В); 

IF А>0 THEN RETURN (А+В); 

ELSE RETURN (А - В); 

END FOF; 

Обратите внимание на заключенное в круглые скобки выражение, 
которое следует за оператором RETURN. Оно должно и может опре¬ 
делять только одно значение, вычисленное процедурой-функцией. 
Управление передается на обращение к функции в процедуре АВС 
(это значение занимает в операторе место FOF (Х,Х + Y— 2)), и вы¬ 
полнение оператора продолжается. 

Если процедура-функция оканчивается с помощью оператора 
GO ТО, то управление передается на оператор, имеющий соответству¬ 
ющую метку, и выполнение программы продолжается. Выполнение 
оператора, который обратился к функции, заканчивается. Описатели 
переменной, вычисленной процедурой-функцией, определяются по 
умолчанию по первому символу имени функции в соответствии с об¬ 
щими правилами. Форматы этих переменных могут быть изменены 
описателями в функции PROCEDURE или операторе ENTRY. В вы¬ 
зывающую процедуру должно быть также вставлено соответствующее 
описание. 

В ранее приведенном примере процедура-функция 

FOF: PROCEDURE (А, В); 

определяет одно значение (либо А + В, либо А — В), и это значение 
передается в вызвавшую процедуру в формате REAL DECIMAL 
FLOAT (6), определенном по умолчанию. 

Для изменения формата переменной необходимо: 

1) добавить требуемые описатели в оператор PROCEDURE, на¬ 
пример: 

FOF: PROCEDURE (А, В) FIXED; 

2) объявить аналогичные описатели для имени входа в вызываю¬ 
щей процедуре методом явного объявления: 

DECLARE FOF RETURNS (FIXED) : 

Неопределенные явно описатели присваиваются по обычному пра¬ 
вилу: REAL DECIMAL (5,0). 

Описатель RETURNS обычно имеет вид: 

RETURNS (список фактических параметров) 
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В ПЛ/1 ни описатель RETURNS, ни описатель ENTRY не могут 
применяться со встроенными функциями. (Будьте осторожны и не 
путайте описатель RETURNS и выполненный оператор RETURN. 
Обратите внимание на то, что название первого имеет форму множест¬ 
венного числа.) 

Описатель BUILTIN может служить для описания идентификатора 
встроенной функции ПЛ/1 или псевдопеременной в данной процедуре. 
Необходимость в этом может возникнуть, например, в случае, когда 
SIN используется как имя переменной, область действия которого 
включает процедуру, где SIN в роли встроенной функции синуса. 
BUILTIN не может описывать формальные параметры. 

Описатель ENTRY. Если при обращении к процедуре-функции, 
не имеющей списка формальных параметров, ее имя в вызывающей 
процедуре не определено как имя входа, то оно должно быть объяв¬ 
лено явно с помощью описателя ENTRY оператором вида: 
DECLARE имя входа ENTRY; 

Предположим, что производится обращение к процедуре-функции 
DIE, которая с помощью датчика случайных чисел вычисляет значение 
1, 2, 3, 4, 5 или 6, соответствующее падению игральной кости, и что 
эта функция не требует списка фактических параметров. 

Первым оператором в этой процедуре-функции может быть: 

DIE: PROCEDURE FIXED (1); 

Вызывающая процедура может использовать эту функцию в таком, 
например, операторе: 

IF DIE— 1 THEN • • •; 

Дополнительное объявление 

DECLARE DIE ENTRY RETURNS <FIXED(1))J 

необходимо для того, чтобы вычислить переменную в заданном фор¬ 
мате, а также описать DIE в вызывающей процедуре как имя входа, 
а не как имя переменной. 

Имена входа в качестве фактических параметров. Имена входа мо¬ 
гут служить в качестве фактических параметров функции или в каче¬ 
стве процедур-подпрограмм. Либо значение, либо само имя входа пере¬ 
дается в вызванную процедуру. Далее приводятся различные методы 
использования имен входа. 

1. Передача значения функции. Если имя входа имеется в списке 
фактических параметров, то считается, что это имя входа со списком 
своих фактических параметров представляет функцию и эта функция 
і.ызывается, а вычисленное значение передается. Если функция, не 
содержащая списка фактических параметров, заключена в круглые 
скобки, то считается, что она представляет функцию без формальных 
параметров. Эта функция вызывается и вычисленное значение пере¬ 
дается . 

Пример 

Предположим, что записаны две функции: 

FI : PROCEDURE (А, В, С); 

F2: PROCEDURE; .‘ 
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Следующие операторы передадут значения функции в вызванную 
процедуру: 

CALL XYZ(F1(X— 4, D, Z), N); 

CALL XYZ((F2), N); 

2. Передача имени входа. Если в списке фактических параметров 
имеется имя входа, которое не заключено в круглые скобки, то имя 
входа передается в вызванную функцию или процедуру-подпрограмму. 
Пример 

DECLARE F ENTRY; 


CALL ABC (X, Y, F); 

передаст имя входа F в процедуру ABC. 

Вызывающие процедуры в описателе INITIAL. (В подмножестве 
ПЛ/1 описатель INITIAL запрещен.) Описатель INITIAL может 
вызвать процедуру-подпрограмму для присваивания начальных зна¬ 
чений идентификаторам. Общая форма этого описателя следующая: 
INITIAL CALL имя входа (список фактических параметров). Такая 
форма описателя INITIAL неприменима для присваивания начальных 
значений данным STATIC. 

Пример 

DECLARE А(50) INITIAL CALL IN (X, Y); 

Присваивание первоначальных значений элементам массива А 
производится путем обращения к подпрограмме IN. Конечно, либо 
массив А определяется в IN заранее, либо он передается в качестве 
параметра. При таком использовании описателя INITIAL управление 
возвращается на него. 

6.6. ПЕРЕМЕННЫЕ РАЗМЕРНОСТИ 

Ранее указывалось, что память для данных AUTOMATIC, 
CONTROLLED и BASED распределяется во время выполнения 
программы. Размерность для этих типов памяти может определяться 
соответственно переменными или выражениями. Значения этих пере¬ 
менных обязательно должны быть определены к моменту распреде¬ 
ления памяти либо в операторе DECLARE, либо в операторе 
ALLOCATE. 

Пример 

XYZ: PROCEDURE; 

DECLARE А(100, 50), B(N) CONTROLLED; 


GET LIST (I. J. N); 

ALLOCATE B(N); 

GET LIST (B); 
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CALL ABC (A, B, 1, J, N); 


END XYZ; 

ABC: PROCEDURE (C, D, L, M, N); 
DECLARE C(L, M), D(N); 


END ABC; 

В операторе DIMENSION вызванной процедуры звездочки показыва¬ 
ют, что этот идентификатор имеет ту же размерность или длину, что 
и соответствующий идентификатор в вызывающем блоке. Звездочки 
неприменимы для переменных BASED. Оператор DIMENSION в XYZ 
(см. ранее приведенный пример) можно было бы записать так: 

DECLARE А (100, 50), В(*) CONTROLLED; 

Пример 

DECLARE А (100, 60); 

CALL СВА(А); 


СВА; PROCEDURE (X); 
DECLARE Х(», •); 


В этом примере граничные значения размерности для переменной X 
будут передаваться, когда будет вызвана процедура СВА. 

Определить размерность массива можно с помощью встроенной 
функции DIM. Форма ее записи такова: DIM (аргі, арг2), где ар г 1 
представляет собой имя массива, размерность которого нужно опре¬ 
делить , а арг2 — определяемое граничное значение размерности. Зна¬ 
чение арг2—двоичное целое число, а если оно дано не в этой форме, то 
производится его преобразование. В ранее приведенном примере встро¬ 
енная функция DIM (А, 2) даст значение 50. (В подмножестве ПЛ/1 
употребление встроенной функции DIM запрещено). В операторе 
ALLOCATE также можно употребить звездочку для указания длины 
строки или размерности переменной. 

Пример 

DECLARE С CHARACTER (5) VARYING CONTROLLED; 


ALLOCATE C CHARACTER (5); 

ALLOCATE C CHARACTER(L); 

ALLOCATE C CHARACTER (*); 
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Первый оператор ALLOCATE установит максимальную длину 
строки символов, равную 5, второй— L, а третьей, где стоит звездочка, 
снова — L (обращаясь к самому последнему перед этим распределению). 

6.7. РЕКУРСИВНЫЙ ВЫЗОВ ПРОЦЕДУР 

(В подмножестве ПЛ/1 рекурсивный вызов процедур не разрешает¬ 
ся.) До сих пор рассматривались способы вызова только неактивных 
процедур. Однако некоторые процедуры во время вызова могут быть 
и активными. Активная процедура может быть еще раз вызвана 
(рекурсивно) при условии, что она определена описателем 
RECURSIVE. Это делается необязательно путем включения в опера¬ 
тор PROCEDURE описателя RECURSIVE; 

Например, 

ABC: PROCEDURE RECURSIVE) 


Область действия этого описателя включает также все вторичные 
точки входа процедуры АВС. 

Всякий раз, когда вызывается рекурсивная процедура, значения 
переменных, определяемых всеми нестатическими идентификаторами, 
«опускаются» в магазин так же, как «опускаются» управляемые пере¬ 
менные. Когда выполнение процедуры при данном обращении закан¬ 
чивается, эти значения «поднимаются» из магазина так же, как значе¬ 
ния управляемых переменных. Разбирая следующий пример, уясните 
эти правила. Далее приводится процедура-функция для вычисления 
пі = я (я — 1) ... (1), где я— положительное целое число. Другой 
способ определения я!: 


яі 


(1, если я = 1 или я = О 
(я(я —1)1, если я>1 


1. FACT) RROdEDURF(N) FIXED (10) RECURSIVE; 

2. DECLARE M FIXED (10), FAST RETURNS (F1XED(10))) 

8. IF N = 1 I N=0 THEN RETURN! 1); 

4 M=FACT(N-1)"N; 

6 RETURN(M); 

6. END FACT; 

Процедура, которая первоначально вызывает FACT, должна иметь 
вид FACT RETURNS (FIXED (10)) в операторе DECLARE, поскольку 
формат вычисленного значения отличается от формата, определенного 
по умолчанию. Кроме того, сама функция FACT должна содержать 
такое описание, так как она сама может обратиться к себе. 

В дальнейшем последовательные распределения памяти для опре¬ 
деленной переменной будут обозначаться штрихами. Предположим, что 
эта процедура была вызвана при значении N = 3. 

Первый вызов. При первом обращении из внешней процедуры N' 
имеет значение 3 и место в памяти определено для М'. Поскольку N' 
равно 3, то управление передается оператору (4), и оператор (4) вычис¬ 
ляет N' — 1 = 2 и вызывает процедуру FACT второй раз. 


6 Зак. 1278 
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Второй вызов. N" получает значение 2, в то время как старое зна¬ 
чение «опущено» в магазин. Место в памяти определено для М*, М' 
«опускается». Поскольку N" равно 2, управление передается оператору 
(4), и оператор (4) вычисляет N" — 1 = 1 и вызывает процедуру 
FACT в третий раз. 

Третий вызов. N"' получает значение 1, а его старое значение (2) 
«опускается» в магазин. Место в памяти определено для М"', а М’ 
«опускается». Поскольку N" равно 1, то выполняется конструкция 
THEN оператора (3), заканчивая, таким образом, третий вызов про¬ 
цедуры FACT, освобождая N'" и М'" и передавая значение 1 второму 
вызову процедуры FACT. Значения N" и М" «поднимаются». N" имеет 
значение 2. 

Выполняется оператор (4), вычисляя значение 1* 2 = 2, которое 
записывается вМ". Следующим выполняется (первый раз) оператор (5), 
заканчивая второй вызов процедуры FACT, освобождая N" и М" и пе¬ 
редавая значение 2 в точку вызова, которым является оператор (4). 
Значения N' и М' «поднимаются» из магазина. N' имеет значение 3. 
Оператор (4) выполняется еще раз, вычисляя значение 2* 3 = 6, 
которое записывается в М'. Следующим выполняется (второй раз) 
оператор (5), заканчивая первый вызов процедуры FACT, освобождая 
N' и М' и передавая требуемый результат 6 в первоначальную точку 
вызова, которая находилась в другом блоке. 

В этом примере можно было бы опустить оператор (2), а значение М 
в операторах (4) и (5) заменить на N. Конечный результат был бы тем 
же самым и дополнительная память не потребовалась бы. 

Полезно проследить за логикой следующей программы тем же спо¬ 
собом, которым был разобран ранее приведенный пример: 

/• CHAPTER #6-EXAM(LE #1 V 
/* N FACTORIAL */ 

1 Е601: PROCEDURE OPTIONS (MAIN); 

2 DCL FACT RETURNS (FIXED( 10))} 

3 DO N = 0 TO 7: 

4 PUT SKIP EDIT (N, FACT(N)) <F(5), F(20)): 

6 END; END; E601; 

1 (CHECK (M, N)); 

FACT: PROCEDURE (N, FIXED (10) RECURSIVE; 

2 DCL FACT RETURNS F1XED(10)); 

3 DCL M FIXED (10 ; 

4 IF N=1 I N=0 THEN RETURN(1)1 

6 M=FACT (N-1)*N; 

7 RETURN(M); 

В END FACT; 
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/* Глава 6, пример 1*/ 
/*N факториал */ 


Нужно заметить, что ценность приведенного примера ограничена, 
так как 141 дает в результате одиннадцать цифр. Более полезной была 
бы функция с плавающей точкой. Подобная логика возможна и в том 
случае, если последовательные вызовы относятся не только к одной 
и той же, но и к некоторой другой активной процедуре. Идентификато¬ 
ры с описателем STATIC не «опускаются» в магазин рекурсивными вы¬ 
зовами, а остаются доступными в течение всего времени выполнения 
программы. 

6.8. УПРАЖНЕНИЯ 

Короткие упражнения 

1. На карте отперфорированы значения 3b 1. Ь2. ЬЗ. (Ь означает пробел). 
Каждая из приведенных далее программ предусматривает применение карт. 

Если программа правильна, то что будет напечатано? Если она неправильна, 
то почему? 

a) ABC: PROCEDURE OPTIONS (MAIN); 

GET LIST (N); 

DCL A (N); 

GET LIST (A); 

PUT LIST (N, A); 

END; 


6) ABC: PROCEDURE OPTIONS (MAIN); 



DCL A (N) CONTROLLED: 



6* 
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г) то же, что в примере (в), только оператор DECLARE имеет форму DCL 
А (*) CONTROLLED; 

д) ABC: PROCEDURE OPTIONS (MAIN); 

GET LIST <N); 

CALL XYZ; 

XYZ: PROCEDURE; 1 
DCL A (N); 

GET LIST (A); 

RETURN; 

END; 

PUT LIST (N, A); 

END; 

е) ABC: PROCEDURE OPTIONS (MAIN); 

GET LIST (N); 

CALL XYZ; 

XYZ: PROCEDURE; 

DCL A (N); 

GET LIST (A); 

PUT LIST (N, A); 

RETURN; 

END; 

END; 

ж) ABC: PROCEDURE OPTIONS (MAIN); 

GET LIST (N); 

CALL XYZ (N); 

PUT LIST (N); 

END; 

XYZ: PROCEDURE (N); 

DCL A (N); 

GET LIST (A); 

PUT LIST (A); 

RETURN; 

END; 

2. Предложенные задачи относятся к структуре программы, приведенной 
на рис. 6.4. 

а) составьте таблицу, расположив слева обозначения каждого блока, а спра¬ 
ва укажите, какие процедуры могут быть вызваны этим блоком; 

б) процедура С вызвала процедуру G, а в процедуре G имеется оператор 
GO ТО LAB; (где LAB — константа типа метки). Объясните, где еще мог бы 
быть оператор с меткой LAB; 

в) если процедуру G нужно вызвать поцедурой F как процедуру-функцию 
(без фактических параметров), то какие добавочные операторы нужно добавить 
к программе? 

г) какова область действия переменной Y? 

д) какова область действия переменной X? 

е) во время выполнения программы производились следующие последова¬ 
тельные обращения и выходы из процедур: CALL В, CALL С, RETURN, 
CALL Е, CALL С. Программа достигла оператора CALL Е, который входит 
в блок BEGIN D. Возможно ли это? 

ж) то же, что в примере (е), за исключением того, что оператором, который 
нужно выполнить следующим, является CALL G; 

з) выполнение программы достигло некоторого оператора в процедуре А 
или в одном из блоков, входящих в А. Необходимо вызвать процедуру Н. Воз¬ 
можно ли это? Если невозможно, объясните, можно ли что-нибудь предпринять, 
чтобы это стало возможным? 

и) пусть оператор процедуры для процедуры Н записан в виде: 
Н : PROCEDURE (М, N); В процедуре имеется оператор RETURN (4* M—N). 
Можно ли вызвать процедуру Н оператором процедуры G, имеющим форму: 
К = 2* Н (І, J); (см. рис. 6.4)? 
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3. Что будет напечатано после обработки следующей программы? 

XYZ: PROCEDURE OPTIONS (MAIN); 

DCL К STATIC EXTERNAL INITIAL (0); 

X = 5; 

PUT LIST <K, FOF (X). K); 

END XYZ; 

FOF: PROCEDURE (X) RECURSIVE; 

DCL К STATIC EXTERNAL INITIAL (0); 

K = K+ 1; 

IF X = 0 THEN RETURN (0); 

RETURN (X+GOF (X)); 

END FOF; 

GOF: PROCEDURE (X) RECURSIVE; 


m x external-, 

C-PROCEDURE; - 

D'-BEBIN; - 

END D; _ 


END Cl _ 


E '-PROCEDURE', - 


DCL (X, Y) FIXED; 
X-T-S; 

END Fi _ 


DCL X EXTERNAL, Y FIXED; 

N-PROCEDURE; - 


тастжтт стщ --—" 

DCL X(IOO) CONTROLLED, YSTATIC, I EXTERNAL; 
ALLOCATE X: 

SET LIST (X); 

z-sum(x)-, 


DCL L LABEL; 

IF KJ THEN CALL C(l,LU 
ELSE 1*1+1; 1 


IF Z<0 THEN CALL В t 


16. C'-PROCEDURE (N, N); - 

П. DCL I EXTERNAL, N LA 

18. D-.DO /*/. TO T0\ 

T9. END; 

20, IF H-l THEN BO TO 

гт. ELSE BO TO . 

гг. end c; - 


4. Анализируя структуру программы, приведенной на рис. 6.5, объяс¬ 
ните область действия имен, способы активизации и окончания блоков, распре¬ 
деление и освобождение памяти и, в общих чертах, как эта программа действует 
(числа слева даны только для ссылки). 


Задачи для программирования 

1. а) В примере Б параграфа 2.8 приведены две процедуры для решения 
квадратного уравнения. Используйте одну из них как внешнюю процедуру 
без употребления оператороз GET или PUT. Вы могли бы проверить правиль- 
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ность вашей программы при помощи записи простой главной процедуры для вы¬ 
зова этой внешней процедуры, а затем попытаться просчитать несколько конт¬ 
рольных задач; 

б) напишите внешнюю процедуру для нахождения действительного корня 
кубического уравнения аз? + Ьх 2 + сх + d = 0 с помощью метода деления 
рополам (он описан далее). Как только действительный корень будет найден, 
разложите данное кубическое уравнение на линейные и квадратные множители 
и напишите обращения к внешней процедуре из пункта (а) данного упражнения 
для нахождения двух остальных корней. 

Метод деления пополам предполагает, что извести^ два приближенных зна¬ 
чения X : XL и XR, находящихся по обе стороны искомого корня R. Пусть 
/ (х) = ах 3 + Ьх 2 + сх + d и, скажем, XL < R < XR. / (XL) и / (XR) должны 
иметь противоположные знаки. Теперь можно с помощью следующего алго¬ 
ритма найти значение R: 

,/ XL+ XR \ 

1) вычислите / I---I; 

2) если / (XL) и значение, полученное в (1), имеют противоположные 

XL + XR XL+XR 

знаки, то XR =- g - ; в противном случае XL = - g -". 

3) если XL — XR < TOL, где TOL — заданная точность вычисления, то 
прекратите вычисления и воспользуйтесь либо XL, либо XR как значением R 
с толерантностью ±TOL. Если XL — XR > TOL, то перейдите к шагу (1) 
и повторите процесс; 

в) для проверки правильности программ, составленных в соответствии с за¬ 
даниями (а) и (б), напишите простую главную процедуру.- 

2. В некотором географическом районе наблюдалось, что вероятность изме¬ 
нения погоды на следующий день по сравнению с сегодняшним подчиняется та¬ 
ким законам: вероятность того, что погода изменится, равна 2/3, вероятность 
того, что погода останется неизменной, равна 1/3. Но если в течение трех или 
более дней удерживаются одинаковые погодные условия,то эта вероятность из 
меняется таким образом: вероятность того, что погода изменится, равна 5/6, 
вероятность того, что погода останется неизменной, равна 1/6. 

Если изменение погоды на следующий день ожидается, то вероятность того, 
что на следующий день будет дождь, снег, ясная или облачная погода, можно 
выразить таблицей: 


ПОГОДА НА СЛЕДУЮЩИЙ ДЕНЬ 

Дождь Снег Ясно Облачно 


Погода 

сегодня 


дождь 


1/6 

2/6 

3/6 

снег 

2/6 


1/6 

3/6 

ЯСНО 

2/6 

1/6 


3/6 

облачно 

2/6 

2/6 

2/6 



Напишите программу для считывания карты данных, где отперфорировано 
ДОЖДЬ, СНЕГ, ЯСНО или ОБЛАЧНО (что показывает погоду сегодня). 
После этих слов на карте отперфорированы два целых числа. Первое число по¬ 
казывает количество дней, в которые подряд удерживалась одинаковая погода. 
Второе число показывает количество дней (включая сегодняшний день), по кото¬ 
рым нужно получить прогноз погоды. Программа должна смоделировать погоду 
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на это количество дней в соответствии с указанными законами и выдать на пе¬ 
чать прогноз погоды на каждый из дней. 

Эту систему можно смоделировать, бросая игральную кость всякий раз, 
когда нужно сделать выбор. Например, если сегодня ДОЖДЬ, а вчера его не бы¬ 
ло, то сначала надо бросить кость, чтобы выяснить, изменится ли завтра погода. 
Если выпадут числа 1, 2, 3 или 4, то это изменение произойдет, если 5 или б — 
изменений не ожидается. Если изменение ожидается, кость надо кинуть еще 
раз. Если выпадет число 1, то завтра будет СНЕГ; если 2 или 3 — завтра может 
быть ЯСНО, если выпадет 4, б или 6 — завтра может быть ОБЛАЧНО. 

При написании программы ориентируйтесь на столько внутренних и внеш¬ 
них процедур, сколько их требуется. Одной из них будет, вероятно, процедура- 
функция, которая будет вычислять случайные числа 1, 2, 3, 4, 5 или 6, имитируя 
бросание игральной кости. 

3. Напомним, что яі = п (л — 1) (я — 2) ... 1 для целого числа я. 01 счи¬ 
тается равным 1. 

Факториальные многочлены записываются в виде я <г) = я (я—1) (я — 2)... 
... (я — г *4“ 1) и я 101 =1, где я и г — целые числа 

Заметьте, что я <1 * = я и я (п) = яі Из этого определения сразу же_следует, 
что 

П< г +>> = (п —г) п (г) . (1) 


Число различных способов (независимо от порядка), когда г объектов мож¬ 
но выбрать из я объектов, определяется формулой: 

С (п, г) — ЛІИ. f n^r^O, (2) 

например, 

С (4,2) = — =^!=6. 

Ѵ ' ’ 2' 21 

Напишите внешнюю рекурсивную процедуру, которая вычислит С (я, г) 
для данных л иг по уравнениям (1) и (2). Для того чтобы проверить эту проце¬ 
дуру, напишите простую главную процедуру для вычисления С (я, г) для я = 8 
и г = 0, I, 2, 3, 4, 5, 6, 7, 8. 

4. В упражнении 9 из главы 5 рассмотрена печать графика функции. Цель 
настоящего упражнения — написание более общей процедуры для выполнения 
этой задачи. 

Запишите внешнюю процедуру, которая будет вычерчивать на одном листе 
графики до 9 функций (у = / (*)) для заданного интервала значений X. Допол¬ 
нительно предусмотрите возможность печати до трех базисных линий (у = конс¬ 
танта) и списка значений X на левой стороне графика. Далее приведены некото¬ 
рые условия для программирования этой задачи: 

а) для всех значений функций и базисных линий масштабы должны быть 
выбраны так, чтобы графики заняли максимум места на странице. Для выпол¬ 
нения этой задачи нужно написать отдельную процедуру; 

б) при определении координат точек графика необходимо производить 
округление значений так, чтобы кривая была по возможности гладкой; 

в) значения масштабных множителей должны печататься; 

г) символы, обозначающие точки графиков различных функций и базис 
ных линий, должны быть выбраны так, чтобы различные графики и базисные 
линии легко различались; 

д) нужно определить требования к памяти (если все координаты вычисля 
ются и хранятся в памяти, то может потребоваться избыточное количество 
памяти); 

е) система по умолчанию может быть дополнена явными описаниями с тем, 
чтобы использовать целую страницу и обеспечить непрерывную печать графики 
при переходе с одной страницы на следующую; 
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ж) может оказаться более целесообразным формировать и печатать целые 
строки, а не применять SKIP (0) для последовательных контуров при данном 
значении X; 

з) если два графика пересекутся, то в одной точке необходимо определить, 
какой символ или символы проставлять в точке пересечения. 

5. а) напишите внешнюю процедуру, которая передавала бы вызвавшей 
процедуре массив данных, представляющий перетасованную колоду из 52 обыч¬ 
ных игральных карт. «Колода», передаваемая по различным вызовам, должна 
быть сформирована случайным образом и не должна составляться по какому- 
либо заранее обусловленному образцу по последующим вызовам или по после¬ 
дующим проходам программы. Например, «карты» могли бы храниться в мас¬ 
сиве из 52 символов; затем элементы этого массива переставлялись бы 
случайным образом. 

Порядок и число перестановок можно было бы определять с помощью 
генератора случайных чисел, который выбирал бы начальные значения с по¬ 
мощью встроенной функции TIME; 

б) напишите программу для моделирования раскладывания пасьянса N 
раз, как это описано далее. Значение N читается в исходных данных. В выходных 
данных для каждого пасьянса должны быть показаны карты и порядок, в ко¬ 
тором они выпадают во время всей игры, и должно быть указано, сошелся ли 
пасьянс. 

Правила игры. Сверху перетасованной колоды снимаются и откладываются 
две карты. Если эти две карты одинаковы по значению (например, два валета 
или две семерки), то снимаются и открываются следующие две карты, которые 
кладутся на две первые. Это продолжается до тех пор, пока.две открытые карты 
будут разными по значению. Тогда снимается и открывается третья карта. 
Если из трех открытых теперь карт любые две одинаковы, то на них кладут две 
карты, снятые с колоды. Это продолжается до тех пор, пока три открытые карты 
не выпадут разными. Тогда снимается и открывается четвертая карта Описан¬ 
ный процесс протекает при одном ограничении — нельзя раскладывать больше, 
чем восемь кучек карг. 





Глава 7 


ДОПОЛНИТЕЛЬНЫЕ СВЕДЕНИЯ 
О ЯЗЫКЕ ПЛ/1 


В следующих разделах рассматриваются дополни¬ 
тельные сведения о языке ПЛ/1. Эти разделы тематически между собой 
не связаны и поэтому читать их можно в любом порядке. 

7.1. ОПРЕДЕЛЕНИЕ ПО СООТВЕТСТВИЮ 
И ПО СОВМЕЩЕНИЮ 

В Фортране оператор EQUIVALENCE отводит двум переменным, 
которые находятся в одной и той же программе или подпрограмме, 
одну и ту же область памяти. В ПЛ/1 той же дели служит оператор 
DEFINED. Например, оператор DECLARE X DEFINED Y; опреде¬ 
лит одно и то же место в памяти для переменных X и Y . В этом опера¬ 
торе Y должно быть определено ранее либо явно, либо неявно. 

При определении по соответствию ранее определенному элементу 
данных присваивается другое имя. Соответствие может быть между 
массивами одинаковой размерности или между одной частью неко¬ 
торого массива и массивом другой размерности. Оператор 

DEL X (6, 4) FIXED (5,1) IN1T ((20)0), 

Y Б, 4) DEFINED X; 

определит Y и X как различные имена переменных одного и того же 
массива. Описатель INITIAL можно использовать только при перво¬ 
начальном определении ячейки памяти. (В подмножестве ПЛ/1 мас¬ 
сивы должны быть одинаковой размерности.) 

Специальные индексы типа i SUB (где і — целое число) можно 
употреблять для переопределения только части массива. Индекс 
і SUB определяет і-й индекс переменной, который должен быть переоп¬ 
ределен. (В подмножестве ПЛ/1 индекс і SUB запрещен.) Например, 
оператор DCL X (30) ШЩ(ЗО)О), Y (5) DEFINED X (1 SUB); пере¬ 
определит ячейки X (1), X (2), X (3), X (4) и X (5) идентификаторами 
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Y (1), Y (2), Y (3), Y (4), Y (5). Индекс 1 SUB определяет первый ин¬ 
декс переменной, которую нужно переопределить, а именно перемен¬ 
ной Y. Значения 1 SUB от 1 до 5 определяются размерностью данной 
переменной. 

Оператор DCL X (30), Y (5) DEFINED X (25 + 1SUB); переопре¬ 
делит ячейки X (26), ..., X (30) как Y (1), .... Y (5). 

Оператор DCL А (50, 30) В (50) DEFINED A (1SUB, 15); переопре¬ 
делит пятнадцатый столбец массива А как одномерный массив В, со¬ 
стоящий из 50 элементов. 

Оператор DCL U (5, 10), V (10, 5) DEFINED U (2SUB, 1 SUB); 
обеспечит легкий способ «взгляда на массив» как на массив 5 X 10 
или как на массив 10 X 5. 

Оператор DCL W (15, 15), X (15) DEFINED W (1 SUB, 1 SUB); 
даст главным диагональным элементам массива W имя одномерного 
массива X. При необходимости размерность нового массива в приве¬ 
денных примерах может быть уменьшена. Например, оператор DCL 
W (15, 15), X (13) DEFINED W (1 + 1SUB, 1 + 1SUB); присвоит 
главным диагональным элементам массива (исключая два угловых 
элемента) имя одномерного массива X. Для устанрвления требуемого 
соответствия переменные i SUB могут быть проставлены в выраже¬ 
ниях, как это было сделано в некоторых из ранее приведенных при¬ 
меров. 

Оператор DCL Х(5, — 2: 2), Y DEFINED X (3, 0); определяет, что 
идентификатор X (3,0) и Y определяют одну и ту же переменную. 

При употреблении описателя DEFINED описателем INITIAL 
можно пользоваться только при первоначальном определении области 
памяти, а описатель VARYING вообще неприменим. Элемент, опре¬ 
деленный DEFINED, всегда считается INTERNAL, хотя первоначаль¬ 
но идентификатор мог иметь описатель EXTERNAL. Кроме того, 
нельзя переопределять переменную в терминах другой переопределяе¬ 
мой переменной. 

В ситуациях, которые приведены далее, нужно быть особенно осто¬ 
рожным: 

A: PROCEDURE: 

DCL X (10) EXTERNAL, Y (10) DEFINED X (1SUB); 

END A; 

B: PROCEDURE: 

DCL X (10) EXTERNAL; 

END B; 

В этом примере массив X определен как в процедуре А, так и в про¬ 
цедуре В. С другой стороны, переменная Y определена только в про¬ 
цедуре А. Если процедура А вызывает процедуру В и процедура В 
изменяет значения элементов массива X, то последующие обращения 
к Y после передачи значений из В в А приведут также к изменению 
значений элементов массива Y. 
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Определение по совмещению позволяет совмещать память 
при переопределении. Например, оператор DCL A CHAR (10), 
В CHAR (3) DEFINED А; определяет, что строка символов В совме¬ 
щается первыми тремя элементами строки символов А, длина которой 
равна 10 . 

Если нужно, чтобы совмещение начиналось не с первого элемента, 
а с некоторого другого, то можно употребить специальный описатель 
POSITION (d), где d — целое число. Этот описатель применяется толь¬ 
ко с переменными BIT или CHARACTER. 

Оператор DCL A CHAR (10), В CHAR (3) DEFINED 
A POSITION (6); определяет, что строка символов В совмещается с ше¬ 
стым, седьмым и восьмым элементами строки А. 

Нужно очень тщательно следить за тем, чтобы определяемая пере¬ 
менная не вышла за пределы поля, которое переопределяется. 

DEF — допустимое сокращение от DEFINED. (В подмножестве 
ПЛ/1 такое сокращение запрещено, а употребление описателя 
POSITION не допускается.) 

7.2. ПРЕРЫВАНИЯ ПРОГРАММЫ 

Ошибки в синтаксисе, которые обнаруживаются во время трансля¬ 
ции большинством трансляторов, понятны и их не слишком трудно 
исправить. Но ошибки, которые обнаруживаются уже во время вы¬ 
полнения программы, принадлежат к наиболее трудно исправляемым; 
чаще всего в этом случае выполнение программы просто прекращается, 
и программист получает сообщение об ошибке, но о причине ошибки ему 
почти ничего не сообщается. 

Транслятор ПЛ/1 располагает рядом возможностей проверки про¬ 
граммы на наличие ошибок во время ее выполнения. 

Некоторые из них находятся под контролем программиста, в том 
смысле, что если программист хочет, он может сам определить, можно 
ли игнорировать эти ошибки, а если нельзя, то выработать действия, 
которые необходимо предпринять при возникновении ошибки. Транс¬ 
лятор ПЛ/1 может во время трансляции вставить в транслируемую 
программу специальные подпрограммы, обеспечивающие управление 
в определенных ситуациях либо по умолчанию, либо по указанию 
программиста. Диапазон этих ситуаций (назовем их разрешающими) 
очень широк, начиная от проверки переполнения порядка и кончая 
контролем последней строки на текущей странице. 

При такой разрешающей ситуации возникает либо стандартная 
реакция системы, определяемая по умолчанию, либо создается реак¬ 
ция, специально определенная программистом. 

Мы уже встречались с такой контролируемой программистом си¬ 
туацией в операторе 

ON ENDFILE (имя файла) оператор: 

Выполнение этого оператора приводит к возникновению разре¬ 
шающей ситуации ENDFILE. При попытке считать что-либо после мет¬ 
ки конца указанного файла возникает разрешающая ситуация 
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ENDFILE и выполняется написанный программистом оператор, сто¬ 
ящий после скобок с именем файла. При стандартной реакции системы 
печатается сообщение об ошибке, и выполнение программы прекра¬ 
щается. 

Таблица ситуаций с применением оператора ON дана в приложе¬ 
нии Г. В таблице показано также, для каких операторов ON програм¬ 
мист сам может создать реакцию системы или маскировать выполнение 
разрешающей ситуации, а в каких случаях возникает стандартная реак¬ 
ция системы, определяемая по умолчанию. 

Имена ситуаций. Имя ситуации может быть указано перед опера¬ 
тором ПЛ/1 и его метками. Общий вид имени ситуации: 

(имя ситуации [, имя ситуацииі ...): 

Например, запись 

(SUBSCRIPTRANGE) : АВС : А (I) = В (І+І); 

вызовет сравнение значения индекса I с граничными значениями. 
В случае выхода за пределы допустимых границ возникает разрешаю¬ 
щая ситуация. 

Реакция на ситуацию может быть замаскирована путем добавления 
слова N0 к имени ситуации в качестве приставки. Тогда запись может, 
например, выглядеть так: 

(NOOVERFLOW) : X = Y +- Z; 

Имя ситуации может стоять перед любым оператором ПЛ/1, за 
исключением операторов DECLARE или ENTRY. 

Область действия имени ситуации определяется по следующим 
правилам: 


Оператор с записанным 
перед ним именем ситуации 

Область действия распространяется 

Оператор присваивания 

Оператор 1F 

ON 

DO 

PROCEDURE 

BEGIN 

Только на данный оператор, но ни на одну из про¬ 
цедур, которую этот оператор вызывает 

На выражение, следующее за IF. 

Перед конструкциями THEN и ELSE могут быть 
свои собственные имена ситуаций 

Не применяется к ON-unit (будет рассмотрен в 
этом параграфе) 

На выражения в самом операторе DO, но не на опе¬ 
раторы группы DO 

На все операторы вплоть до оператора END, 
включая все вложенные блоки. На вызываемые про¬ 
цедуры, лежащие вне блока, действия не оказывает 
Анлогично оператору PROCEDURE 


Пример 

(N0F1XED0VERFL0W, SUBSCRIPTRANGE) :ABC:PROCEDURE OPTIONS (MAIN); 
(FIXEDOVERFLOW);M= 1 * J; 
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(N OSUBSCRIPTRANGE):XYZ:PROCE DURE; 

END XYZj 
END ABG 

В данном примере ситуация FIXEDOVERFLOW (переполнение 
с фиксированной точкой) будет маскирована для всех операторов про¬ 
цедур АВС и XYZ, за исключением оператора М = I* J; ситуация 
SUBSCRIPTRANGE (выход значения индекса за допустимые грани¬ 
цы) будет проверяться для всех операторов АВС (с организацией со¬ 
ответствующей стандартной реакции), но будет маскирована при лю¬ 
бых обращениях к процедуре XYZ. 

Оператор ON CONDITION. Ранее было показано, какими способами 
программист может создавать разрешающие ситуации и маскировать 
их. Всякий раз, когда возникает разрешающая ситуация, действует 
стандартная реакция системы, если только программист не хочет ор¬ 
ганизовать свою собственную реакцию с помощью оператора ON. 

Оператор ON обычно имеет вид: 

ON имя ситуации [SNAP] (ON-unit I 
[SYSTEM;/ 

( В подмножестве ПЛ/1 в качестве ON-unit может служить только опе¬ 
ратор GO ТО или пустой оператор.) 

Если записано слово SYSTEM (за ним следует точка с запятой), 
то возникает стандартная реакция системы. Слово SYSTEM употреб¬ 
ляется для того, чтобы замаскировать действие предшествующего опе¬ 
ратора ON и по умолчанию передать управление системе. ON-unit — 
это подпрограмма, написанная программистом, определяющая реак¬ 
цию на ошибку. Правила написания ON-unit будут рассмотрены далее. 

Запись необязательного слова SNAP позволяет печатать инфор¬ 
мацию, определяемую системой, если разрешающая ситуация возни¬ 
кает до выполнения ON-unit или до реакции системы, определяемой 
по умолчанию. (В подмножестве ПЛ/1 употребление слова SNAP за¬ 
прещено.) 

ON-unit может состоять из одиночного оператора ПЛ/1 без метки 
или блока BEGIN без метки. Операторы IF, ON, RETURN, FORMAT, 
DECLARE, DO, PROCEDURE h'END не могут быть в ON-unit. Блок 
BEGIN в ON-unit может включать любой оператор ПЛ/1, кроме 
RETURN. Но в блок BEGIN могут быть вложены другие блоки, ко¬ 
торые включают операторы R ETURN. 

Когда возникает ситуация, определенная в операторе ON, выпол¬ 
няется ON-unit и управление передается на оператор, который вызвал 
появление ошибки. ON-unit обрабатывается как вызванная проце¬ 
дура, даже если он состоит из одного оператора. Как и при обраще¬ 
нии к процедуре, может быть выполнен оператор GO ТО, независимо 
от того, является ли он одиночным оператором или входит в блок 
BEGIN. Он передаст управление некоторому оператору, но только 
не тому, который вызвал появление ошибки. 

Если необходимо, можно прибегнуть к пустому ON-unit. Тогда за 
именем ситуации или словом SNAP просто ставится точка с запятой. 
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В этом случае при возникновении разрешающей ситуации никакой 
реакции системы не происходит. Запись пустого ON-unit со словом 
SNAP — один из эффективных способов маскирования ситуации, 
которую каким-либо другим способом маскировать нельзя. Это дает 
дополнительную возможность отмечать прерывания. Результат вы¬ 
полнения оператора ON определен в блоке, в котором он находится, 
и во всех блоках, активизированных этим блоком. Его действие пре¬ 
кращается выполнением оператора с тем же именем ситуации, что и 
в ранее указанном операторе ON или в операторе REVERT (этот опе¬ 
ратор будет рассмотрен далее). 

Если результат действия оператора ON перекрывается действием 
другого оператора ON в вызванной процедуре, результат действия 
первоначального оператора ON восстанавливается с окончанием вы¬ 
званной процедуры. Например, 

ABC: PROCEDURE OPTIONS (MAIN); 

ON OVERFLOW GO TO Ц 

CALL XYZ; 

XYZ: PROCEDURE; 

ON OVERFLOW GO TO LU- 

END XYZ; 

END ABC: 

При выполнении программы этого примера все переполнения, 
происходящие в процедуре АВС до появления оператора ON, вызывают 
стандартную реакцию системы. 

Переполнение, происшедшее после выполнения оператора ON, 
вызывает передачу управления оператору процедуры АВС с меткой L. 
Это положение сохраняется до выполнения оператора ON вызванной 
процедуры XYZ. С этого момента и до тех пор, пока не закончится вы¬ 
полнение процедуры XYZ, переполнение будет приводить к передаче 
управления оператору LL, который может находиться либо в про¬ 
цедуре АВС, либо в процедуре XYZ. После окончания процедуры 
XYZ действие оператора ON OVERFLOW GO ТО L; восстанавли¬ 
вается до окончания выполнения программы. 

Оператор REVERT (Отменить). С помощью оператора REVERT 
можно отменить действие последнего выполняемого оператора ON. 
Оператор REVERT имеет вид: 

REVERT имя ситуации; 

Этот оператор действует только на тот блок, в котором он записан. 

Если в блоке выполняется оператор REVERT, то оператор ON, 
имеющий то же имя ситуации, что и REVERT, и выполняющийся после 
оператора REVERT, рассматривается как пустой оператор. 
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Оператор SIGNAL (Сигнал). Оператор SIGNAL служит для мо¬ 
делирования указанной в нем ситуации. Он часто используется при 
проверке реакции программы на ошибки. Его общий вид: 

SIGNAL имя ситуации: 

Если во время выполнения оператора SIGNAL имя ситуации маски¬ 
руется, то он рассматривается как пустой оператор. 

Ситуация CONDITION (Условие). (В подмножестве ПЛ/1 упот¬ 
ребление ситуации CONDITION запрещено.) С помощью оператора 
CONDITION программист может ввести свои собственные имена си¬ 
туаций. Общая форма такой записи: 

CONDITION (идентификатор) 

Например, ON-unit можно записать следующим образом: 

ON CONDITION (WRONG) BEGIN; ... END; 

Последующее выполнение оператора SIGNAL CONDITION (WRONG); 
приведет к вызову ситуации CONDITION и будет выполняться блок 
BEGIN. 

Ситуация CONDITION может быть вызвана только оператором 
SIGNAL. 

Ситуация CHECK (Проверка). (В подмножестве ПЛ/1 употребле¬ 
ние ситуации CHECK запрещено.) Этот оператор уже рассматривался 
в главе 2. В качестве префикса он может появиться только либо в опе¬ 
раторе PROCEDURE, либо в операторе BEGIN. Из следующего при¬ 
мера видно, как CHECK может использоваться в операторе ON: 

ON СНЕСВД PUT DATA (А В, С. X, Y, Z): 

В таких случаях текущие значения А, В, С, X, Y и Z могут быть на¬ 
печатаны только тогда, когда будет вычислено новое значение Z. 
Для того чтобы обеспечить вывод данных с метками, необходим вывод, 
управляемый данными. Такое действие отличается от действия, вы¬ 
званного употреблением CHECK в качестве префикса 

(CHECK (А. в. С. X. Y. Z»; 

в операторе PROCEDURE. В этом последнем случае он вызывает пре¬ 
рывание в выполнении программы всякий раз, когда изменяется один 
из идентификаторов. 

Употребление ON-unit может привести совсем к другому резуль¬ 
тату. Например, следующая запись могла бы быть очень полезной при 
отладке программы, так как она выдала бы на печать значения пере¬ 
менных только в том случае, когда Z = 0; 

ON CHECK (Z) BEGIN; IF Z=0 THEN PUT DATA (A, B, G, X, Y, Z); END; 

Ситуации-функции. Некоторые встроенные функции могут помочь 
программисту обнаружить причину возникновения разрешающей си¬ 
туации. Иногда такие функции помогают исправить ошибки и продол¬ 
жать выполнение программы. Эти функции не содержат фактических 
параметров, их можно применять только в ON-unit или процедуре, 
которую этот ON-unit вызывает. 

Все эти функции, вместе с другими встроенными функциями 
ПЛ/1, даны в приложении Д. 
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7.1 ШАБЛОНЫ 

Шаблоны предназначены в первую очередь для редактирования 
данных ввода-вывода. Спецификации шаблонов задаются описателем 
PICTURE оператора DECLARE или форматом Р. В Фортране таких 
средств нет. Но программисту, знакомому с Коболом, шаблоны ПЛ/1 
покажутся знакомыми, так как в Коболе они используются интенсив¬ 
но. Шаблоны делятся на два основных класса, описывающие символы 
и описывающие числа. Все шаблоны как в описателе PICTURE, 
так и в формате Р заключаются в одинарные кавычки. 

Шаблоны для описания символов. Шаблоны для описания символов 
очень удобны для описания символьных форматов. Единственными 
разрешенными символами для этого типа спецификации являются сим¬ 
волы X, А и 9. В шаблоне должен быть по крайней мере один сим¬ 
вол X или А. 

Символы X, А и 9 имеют следующие значения: 

X означает, что соответствующее поле может содержать любой 
символ; 

А означает, что соответствующее поле может содержать любую 
букву алфавита или пробел; 

9 означает, что соответствующее поле может содержать любую 
десятичную цифру или пробел. (В подмножестве ПЛ/1 разрешается 
только спецификация X.) 

Пример 

Строка символов ’Xb = bY/14.6’ (b означает пробел) состоит из 
10 символов. Шаблон для описания этой строки будет состоять из 10 
символов X, А или 9, заключенных в кавычки. Существует несколько 
возможных вариантов. Следующая таблица дает представление о та¬ 
ких вариантах: 


Символ в данной 

Шаблон для описа¬ 
ния символов 

X 

X или А 

ь 

X, А или 9 


X 

ь 

X, А или 9 

Y 

X или А 

/ 

X 

1 

X или 9 

4 

X или 9 


X 

6 

X или 9 


Следовательно, существует 2 • 3 • 1 • 3 • 2 • 1 • 2 • 2 • 1 • 2, или 288 
вариантов описания шаблонами данной строки символов, например 
’ХХХХХХХХХХ', ’ААХ9АХ99Х9’ и ’Х9Х9ХХ99Х9’. (Однако 
из-за не точно определенной строки символов с различными специфика¬ 
циями могут возникнуть ошибки.) Строки символов левоустановленные, 
т. е. их запись всегда производится слева направо. Если необходимая 
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ширина поля не соответствует заданному размеру, то запись про¬ 
белов или отбрасывание символов производится справа. 

Шаблоны для описания чисел. Эти шаблоны, как показывает само 
название, служат только для описания числовых форматов. В шабло¬ 
нах для описания чисел разрешается гораздо большее разнообразие 
символов, чем в шаблонах для описания строк символов. Но в них 
нельзя употреблять символы X и А. Значения, присваиваемые число¬ 
вым полям, всегда связаны с десятичной точкой, и запись пробелов или 
отбрасывание символов производится либо справа, либо слева, если 
необходимая ширина поля не соответствует заданному размеру. 
Далее будут рассмотрены символы для спецификаций числовых шаб¬ 
лонов и приведены примеры. Данные для каждого примера располо¬ 
жены в следующем порядке: исходные данные, спецификация шаблона, 
значение строки символов. 

Символ 9 означает, что соответствующее поле может содержать 
любую десятичную цифру. (Заметьте, что символ 9 в шаблоне для опи¬ 
сания символов показывает, что поле может содержать пробел. В шаб¬ 
лоне для описания чисел возможность употребления пробела в этом 
случае исключается.) 

Примеры ImlwI'-M* 1 ” 4, 

Символ определяет место десятичной или двоичной точки. Этот 
символ в шаблоне числа может быть записан только один раз, и если 
он отсутствует, то считается, что подразумеваемая точка всегда нахо¬ 
дится справа. Символ V делит поле на два подполя — справа и слева 
от подразумеваемой точки. Значение строки символов точку не со¬ 
держит. 

Примеры 

1234— ‘999 9V'—' 1234* 

1234 — * Ѵ9999* — ‘0000’ 

12.34 — ‘99Ѵ99 , — ‘1234 1 
12.34 — 4 9V9* — *23* 

Символ Z означает, что соответствующее поле данных содержит 
условную цифру. Если эта цифра равна нулю, то она заменяется про¬ 
белом; если она не равна нулю, то она остается неизменной. Символ Z 
может находиться справа от символов 9, Т, I, R или от плавающих 
символов (см. далее). Символом Z нельзя пользоваться в одном и том же 
подполе с символом*. С помощью символа Z в некоторых случаях 
устраняют нули, стоящие перед числом. 


Примеры 


1234— -‘ZZZ9* — ‘ 1234* 
0123 — ‘ZZZ9* — *Ь 123* 
0010-‘ZZZZ , - , bbl0 1 
01.23— ‘Z9V99 —* Ь 12 


Символ* аналогичен символу Z, но им заменяют нули, стоящие пе¬ 
ред числом. Символ* нельзя записывать в одном и том же подполе с сим¬ 
волом Z. (Этот символ применяется для замены нулей, стоящих перед 
числом при печатании чеков и других финансовых документов.) 

1234 —‘***•‘-•1234' 


Примеры 


01.23 — ■•9Ѵ99‘- 
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Если в спецификации после символа V употребляется символ Z или 
символ*, то в обоих подполях должен стоять один и тот же символ: 
либо Z, либо*. Нули в начале дробной части числа не устраняются, 
если после десятичной точки есть какие-нибудь значащие цифры. 
Примеры 


12.03 —*»• V 
00.01 — V 


Символ Y означает, что соответствующее поле данных содержит 
условную цифру. Если эта цифра равна 0, то она заменяется пробе¬ 
лом. Если цифра ненулевая, она не меняется. Символ Y заменяет все 
нули, где бы они ни стояли. 

Примеры 

0100 — ‘ YYYY' — * ЫЬЬ* 

1020— ‘9YY9‘ — ‘1Ь20‘ 


Символы (,), (.), (/) и Ь (пропуск) вносятся в поле данных в качестве 
редактирующих символов. Запятая, точка и косая черта — условные 
символы в том смысле, что они могут представлять соответствующий 
символ в строке символов, полученной в результате, а могут и не пред¬ 
ставлять его. Символ b всегда означает введение пробела. Если под¬ 
поле, содержащее запятую, косую черту или точку, содержит, кроме 
того, символы подавления нулей (Z, Y или *), то эти символы будут 
вставляться в соответствующую позицию только в том случае, если 
слева от них имеется некоторая значащая цифра. Если значащих цифр 
слева нет, то Z и Y заменяются пробелом, а * остается. Если запятая 
или точка находится внутри строки плавающих символов (см. далее), 
то считается, что строка, содержащая плавающий символ, включает 
запятую, косую черту или точку, которые присваиваются плавающему 
символу. Точка, стоящая в шаблоне, не определяет десятичную точку 
в строке результата. Это делает только символ V. (В подмножестве 
ПЛ/1 употребление косой черты запрещено.) 

Примеры 


1234 —‘99,99' —‘12.34* 
1234.66 —‘9, 999V. 99'—‘1 
00.01 -‘ZZV.ZZ' -'ЬЬ.ОГ 
00123.45— ‘*»,999Ѵ.99‘—‘ 
- - -•9/8/45‘ 


3BB9B9* — 1 1 2 ЬЬЗ Ь 4‘ 


Символ S означает, что соответствующее поле должно содержать 
знак плюс, если число в поле положительное или нуль, и знак минус, 
если число в поле отрицательное. 

Символ + означает, что соответствующее поле должно содержать 
знак плюс, если число в поле положительное или нуль, и пробел, если 
число в поле отрицательное. 

Символ — означает, что соответствующее поле должно содержать 
знак минус, если число в поле отрицательное, и пробел, если число в 
поле положительное или нуль. 

Символ $ означает, что соответствующее поле содержит знак дол¬ 
лара. Он может размещаться либо в крайней левой, либо в крайней 
правой части подполя. 
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Плавающие символы. Если символы S, +, — или $ записаны в шаб¬ 
лоне только один раз, то выполняются описанные выше првила. Если 
некоторые из этих символов проставлены подряд, то это означает, что 
символ «сдвигается» и проставляется перед первой значащей цифрой 
строки результата. 

Примеры 

12.34-' I 99Ѵ.99- $ 12.34' 

01 23-' I Z9V.99' — * I Ы.23' 

01.23— * $$9Ѵ.99‘ — 'Ь $ 1.23' 

123--Щ, $99'-‘ЬЬЬ$ 123' 

— 123— * S 999‘—»—123' 

— 123.45 — ‘+99 Ѵ.99-— • Ь 1 03.45* 

Символы CR и DB, означающие кредит и дебет, определяют, что 
если значение данных отрицательное, то соответствующее поле со¬ 
держит буквы CR или DB; в обратном случае в поле вставляются про¬ 
белы. Эти символы применимы только с данными REAL и печатаются 
в крайней правой позиции. 

Примеры 

-12.34--$ ZZV. 99 CR' — ‘ $ 12.34 CR« 

-12.34 — ' $ ZZV.99DB' — ‘ $ 12.34 DB 1 
12.34-' $ ZZV. 99DB* — ‘ $ 12.34ЬЬ* 

Символы Т, I и R означают, что соответствующее поле исходных 
данных содержит цифру со знаком, отперфорированным в поле этой 
цифры. Они не могут быть в подполе, которое содержит символы шаб¬ 
лонов S, + или —. Если взят символ Т, то цифра и знак перфори¬ 
руются в одном поле. При символе I цифра и знак перфорируются в од¬ 
ном поле, если отперфорированная величина положительная или рав¬ 
на нулю. Если берется символ R, то цифра и знак перфорируются в од¬ 
ном поле только для отрицательных величин. Пробивка 11 означает 
знак — , а пробивка 12 означает знак +. 

Примеры 


Символ К означает, что в поле справа от этого символа записан 
показатель степени числа. Этот символ не соответствует никакому 
символу поля. 

Символ Е означает место буквы Е в числовых данных и указывает 
в поле начало показателя степени. 

Примеры 

. 1234Е05 — *Ѵ.9999Е99* —'. 1234 Е05* 

— 12.34Е — 05 — * S99V. 99KS99--- -12.34-05' 

Символ F указывает на наличие в шаблоне масштабного множителя 
для данных с фиксированной точкой. Символ F записывается в крайней 
правой позиции подполя; за ним может следовать десятичная целая 
константа п со знаком или без него, заключенная в круглые скобки. 

Если масштабный множитель положительный, то константа оз¬ 
начает, что десятичная точка в исходных данных сдвинута вправо на п 
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позиций. Если число п отрицательное, то десятичная точка в исходных 
данных сдвинута на п позиций влево. 

Примеры 

1230— '999F(1)* — 423* 

. 12 — '99 F <-2>‘ —‘12- 

КоэффИЦИеНТЫ повторения. Для повторения символа в шаблоне 
можно пользоваться коэффициентом повторения, который записы¬ 
вается как десятичное число в круглых скобках. Например, запись 
’(5) 9 V. 99’ эквивалентна записи ’99999V. 99’. 

Р-формат. P -формат может быть полезен при редактировании дан¬ 
ных во время ввода-вывода. Форма записи имеет вид: 

Р'спецификация шаблона* 

где спецификацией будет один из описанных символов. При выводе 
данных эта спецификация определяет, каким образом выполняется 
редактирование элемента данных до вывода. При вводе данных эта 
спецификация определяет способ преобразования данных во внутрен¬ 
нее представление. (В подмножестве ПЛ/1 P -формат запрещен.) 

Описатель PICTURE. Описатель PICTURE служит для описания 
внутренней и внешней форм представления полей чисел или строк сим¬ 
волов и для редактирования данных. Его общая форма имеет вид: 

PICTURE (‘спецификация*), 

где в скобки заключена спецификация шаблона для описания сим¬ 
вольных или числовых данных. Слово PICTURE может быть сокраще¬ 
но до РІС. (В подмножестве ПЛ/І такое сокращение не допускается.) 

Спецификация может определять описатели BASE, SCALE и точ¬ 
ность. Например, DCL A PICTURE 'ХАА999'; определяет, что А 
есть строка символов из 6 элементов, a DCL В PICTURE ’S999 V.99’; 
определяет, что В — вещественная десятичная переменная с фикси¬ 
рованной точкой с точностью (5,2). DCL A PICTURE '$ $, $$9. 99'; 
определяет вещественное десятичное число с фиксированной 
точкой с точностью (6,2) и с плавающим знаком доллара. 
DCL С PICTURE’ — 99999Е — 99’; показывает вещественное деся¬ 
тичное число с плавающей точкой с точностью (5). При отсутствии сим¬ 
вола V считается, что десятичная точка находится непосредственно 
перед Е. 

Если после спецификации шаблона стоит описатель COMPLEX, 
то это означает, что спецификация относится как к действительной, 
так и к мнимой части комплексного числа. 

7.4. СТРУКТУРЫ 

В Фортране, а до сих пор и в нашем описании ПЛ/1, данные хра¬ 
нятся в ячейках памяти либо в виде идентификаторов без индексов, 
либо в виде массивов. Массив представляет собой удобный метод хра¬ 
нения информации, которая должна быть обработана в некотором по¬ 
рядке. Кроме того, ПЛ/1 дает дополнительные возможности выпол¬ 
нения операций и вычисления функций над массивами, что позволяет 
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программисту обрабатывать этот тип информации с помощью простых 
и прямых операторов. Основное ограничение при работе с массивами 
заключается в том, что каждая ячейка памяти массива должна содер¬ 
жать один и тот же тип данных. 

Часто возникает необходимость хранить связанную информацию 
для обработки различных типов данных. Такой порядок требует соз¬ 
дания отдельного массива для каждого типа данных, а для установ¬ 
ления соответствия между ними введены соответствующие индексы. 
Это можно проиллюстрировать на простой задаче по вычислению 
среднего балла для группы студентов. Предположим, что на карте 
отперфорирована фамилия каждого студента вместе с количеством бал¬ 
лов за каждый из 10 курсов. Требуется вычислить средний балл и рас¬ 
сортировать баллы по убыванию. В выходных данных должна быть 
напечатана фамилия студента, средний балл и баллы в порядке убы¬ 
вания. 

Предположим, что в группе 100 студентов. Для хранения фамилий 
студентов потребовался бы массив размерности 100; для хранения 
информации о баллах, полученных студентами, потребовался бы еще 
один массив размерности 100 X 10, а для хранения вычисленного сред¬ 
него балла—третий массив размерности 100. (Для хранения получен¬ 
ных студентами баллов и их среднего балла можно использовать один 
массив размерности 100 X 11, так как тип данных тут одинаков.) 

Соответствие между фамилиями, полученными баллами и средним 
баллом определяется индексом каждого массива. 

Описание структур. Приведенный пример на относительно простом 
материале показывает тот тип информации, который в ПЛ/1 может 
рассматриваться как структура. В Фортране такого способа описания 
информации нет, но в Коболе он применяется. Структура — 
это упорядоченная совокупность данных различных типов, которая 
располагается так, чтобы эту информацию было удобно обрабатывать. 
Организация структуры во многом аналогична организации сооб¬ 
щения с различными уровнями и подуровнями. Для того чтобы показать 
архитектуру структуры, используются номера уровней. 

Программист присваивает структурам имена в операторе 
DECLARE. В структуре могут быть еще и подструктуры. Номера 
уровней тоже присваиваются программистом. Старшей структуре 
присваивается номер 1, а каждой подструктуре присваивается более 
высокий номер (не обязательно последовательный). Номер уровня 
структуры появляется перед идентификатором структуры. Между 
номером и идентификатором стоит по крайней мере один пробел. 
Описатели идентификаторов внутри структуры присваиваются по об¬ 
щему правилу — они следуют за именем идентификатора. Для обработ¬ 
ки сложных данных часто употребляются комбинации структур и мас¬ 
сивов. Пример, который был приведен в начале этого параграфа, мож¬ 
но описать как структуру следующим образом: 

ОСЬ 1 GRADES, 

2 STUDENT _ NAME CHAR(40), 

2 COURSE(IO) FIXED(3) f 
2 AVERAGE FIXED(3); 
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Организация этой структуры показана на рис. 7.1. При такой специ¬ 
фикации карты могут обрабатываться последовательно по одной. 
Для облегчения перфорирования повторяющийся номер уровней и опи¬ 
сатели можно вынести за скобки. Тогда приведенный ранее оператор 
можно записать так: 

DCL 1 GRADES,. 

2 (STUDENT _ NAME CHAR(40), (COURSEOO), AVERAGE) FIXED<3)): 

Если всю эту информацию необходимо хранить в памяти машины, 
то нужно сделать следующее описание: 

DCL 1 GRADES (100), 

2 (STUDENT _ NAME €HAR(40), (COURSEOO). AVERAGE) F1XED<3)): 

Этот оператор объявляет GRADES массивом из 100 структур, 
причем каждая структура состоит из трех идентификаторов уровня 2, 
а один из этих идентификаторов будет массивом размерности 10. 
(В подмножестве ПЛ/1 употребление массивов структур запрещено.) 

Если же необходимо присвоить различные веса каждому из десяти 
курсов, записать в разных ячейках имя студента, инициал его вто¬ 
рого имени и фамилию, а также хранить всю эту информацию, то нужно 
сделать следующее объявление: 

DCL 1 GRADES, 

2 EXAM _ WEIGHT (10) FIXED (2), 

2 STUDENT (100), 

3 NAME, 

4 LAST CHAR (15), 

4 FIRST CHAR (15), 

4 MIDDLE CbAR (1), 

3 COURSE (10) FIXED (3), 

3 AVERAGE FIXED (3); 

Для иллюстрации более сложной структуры рассмотрим такой 
пример: 

DCL 1 АССТ_ RECORD, 

2 NUMBER CHAR (10), 

2 NAME, 

6 FIRST CHAR (10), 

5 MID_INIT CHAR (1), 
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6 LAST CHAR (10), 

2 ADDRESS, 

4 STREET, 

6 NUMBER FIXED (3), 

6 NAMB GHAR (15), 

4 CITY, 

6 NAME CHAR (15), 

6 ZIP_CODE FIXED (5), 

4 STATE CHAR (6), 

2 BAL FIXED (7, 2); 

Эту структуру удобно представить так, как показано на рис. 7.2. 
Она иллюстрирует запись счета одного лица. Если бы программист 
намеревался хранить счета 100 клиентов, то либо структура 

АССТ_ RECORD могла бы иметь размерность 100, либо каждая из 

структур второго уровня имела бы размерность 100, 



В приведенном описании используется один и тот же идентифика¬ 
тор на различных уровнях. Выбор имени идентификатора обычно де¬ 
лается для облегчения программирования, но в то же время это может 
привести к путанице. Любое обращение в программе к идентификатору 
LAST может вызвать строку символов, представляющую фамилию 
клиента, в то время как обращение к NAME недостаточно для указания 
необходимого названия (города, улицы) или имени лица. 

Уточняющие имена. Любое имя структуры, за исключением имени 
старшей структуры, можно уточнить, поставив перед ним имя струк¬ 
туры или подструктуры, к которой данная структура принадлежит. 
Справа ставится имя с самым большим номером уровня, слева — с са¬ 
мым маленьким номером. Уточнять имя структуры требуется до тех 
пор, пока оно не станет единственным. В уточняющем имени имена 
различных уровней отделяются друг от друга точкой, а между точкой 
и именем может стоять пробел. 
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Для обращения к названию любой отдельной улицы в структу¬ 
ре АССТ_ RECORD можно взять любое из следующих уточняющих 

имен: 

АССТ_ RECORD. ADDRESS.STREET . NAME 

A DDRESS .STREET. NAME 
STREET. NAME 

С помощью уточняющего имени ACCT_RECORD. NAME обращаются 
к подструктуре, означающей полное имя определенного лица. (В под¬ 
множестве ПЛ/1 записи уточняющих имен должны включать имя 
старшей структуры.) 

Для иллюстрации использования индексов в уточняющих именах 
рассмотрим следующую структуру: 

DCL ІА (6), 

2 В(10), 

3 В (2. 3), 

3F, 

2 С(8), 

3 Е(5), 

3 0(15), 

2 D; 

Схема этой структуры приводится на 
рис. 7.3. 

С помощью уточняющих имен А(2). 
В (1). Е (2,1) можно обращаться к оп¬ 
ределенному элементу (на рисунке он 
обведен кружком). Индексы приве¬ 
денного уточняющего имени могут 
быть помещены в любое место при 
условии, что их порядок не будет 
меняться. Вместо А (2). В (1). Е (2,1) 
можно взять А.В.Е. (2,1,2,1), А (2, 
1, 2, 1). В. Е или А (2). В (1,2, 1). 
Е (В подмножестве ПЛ/1 индексы 
ставятся в крайней правой позиции 
уточняющего имени). 

В приведенном примере иденти¬ 
фикатор F единственный, он появ¬ 
ляется в примере только один раз. 
Однако для обозначения определен¬ 
ного F требуются два индекса. В 
этом смысле он является двумер¬ 
ным, завися как от А, так и от В. 
Далее перечисляются возможные об¬ 
ращения к одному и тому же элемен¬ 
ту: А (1). В (4). F, А (1,4). B.F, А. 
В. F (1,4), В (1,4). F, В. F (1,4), F 
(1,4). 

Описатель LIKE (Подобен). Опи¬ 
сатель LIKE очень удобен для опи- 
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Рис. 7.3, 
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сания двух одинаковых структур или подструктур. Запись двух 
приведенных описаний эквивалентна. 

PCX 1 TAXES, 

2 FEDERAL. 

3 WITH_held, 

3 PAID_DIRECT. 

2 STATE, 

3 WITH_HELD, 

3 PAID_DIRECT. 

2 LOCAL, 

3 WITH_HELD, 

3 PAID_DIRECT? 

DCL l TAXES, 

2 FEDERAL, 

3 WITH_HFLD, 

3 PAID_DIRECT, 

2 STATE LIKE FEDERAL, 

2 LOCAL LIKE FEDERAL: 

Описатель LIKE воспроизводит имена, описатели и размерности, 
появляющиеся только после указанного идентификатора. Если оп¬ 
ределяется размерность идентификатора, в описание которого включен 
описатель LIKE, то она должна быть соответствующим образом обес¬ 
печена. Если в первом операторе DECLARE ранее приведенного при¬ 
мера LOCAL имеет размерность 10, то последний оператор второго опи¬ 
сания должен быть 2 LOCAL (10) LIKE FEDERAL. 

Две структуры или подструктуры, объявленные одинаковыми, 
необязательно должны быть одного уровня или даже находиться в од¬ 
ной и той же старшей структуре. Если в программе было сделано при¬ 
веденное выше описание, то при объявлении новой структуры можно 
включить в запись данную подструктуру (скажем, на уровне 6): 

6 TAXES PAID LIKE TAXES. 

Выражения со структурами. Имена структур или подструктур мо¬ 
гут использоваться в выражениях примерно так же, как имена масси¬ 
вов. Все структуры, которые появляются в некотором выражении, 
должны быть одинаково организованы, хотя номера уровней и опи¬ 
сатели данных у них могут быть различными. Преобразование данных 
производится по обычным правилам. Если элементы структур или сами 
структуры представляют собой массивы, то они должны быть одной 
размерности. 

Рассмотрим следующее объявление: 

DCL I А, 2 АА, 2 AB, 2 j@ 

1 В, 2 BA, 2 BB, 2 ВО, 

I О. 2 СА, 2 СВ, 2 СО; 

Оператор А = В + 2* С; эквивалентен трем операторам: 

АА = ВА + 2* СА; 

АВ = ВВ +2* СВ; 

АС=ВС+2* СС; 

Если объявлено, что переменные А, В и С в приведенном примере 
имеют размерность 15, то оператор А (I) = В (J) +2* С (К); эквива¬ 
лентен трем операторам: 
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AA (I) = BA <J) + 2* C(K); 

AB <I) = BB (J) + 2* CB(K); 

AC (I) = BC (J) + 2* CC (K): 

где все 1, J и К могут принимать любое целое значение от 1 до 15. 

Имена структур и имена массивов не могут появляться в одном 
и том же выражении, однако разрешаются выражения, состоящие из 
массива структур. Обозначение сечения структуры звездочкой за 
прещено. 

Имя структуры может также стоять в списке ввода-вывода, или 
в списке фактических параметров аналогично имени массива. При 
вводе-выводе, управляемом списком или редактированием значения 
поступают в поток в том порядке, в котором они объявляются опера¬ 
тором DECLARE. Если переменная А описана: 

DCL 1 А, 2 В(5), 2 С (10); 

то оператор PUT LIST (А); отпечатает следующие выходные данные: 

А. В(1), ... , А. В (5) А. С (1), ... . А. U U0) 

Если переменная А описана: 

DCL 1 А (5). 2 В, 3 G, 3 D, 1 Е 

то оператор PUT LIST (А); отпечатает следующие данные: 

А. В. С (1), ... , А. В. С (5). А. В. D (1), ... . А. В. D (6), А. Е (1), .... А Е (5> 

При вводе-выводе, управляемом данными, имена элементов дан¬ 
ных должны быть полностью уточнены, и все индексы должны нахо¬ 
диться в крайней правой позиции. При вводе, управляемом данными, 
имя в списке данных (если оно появляется) не может содержать никаких 
индексов. Например, если переменная А описана: 

DCL 1 А(5), 2 В, 2 G, 3 D, 3 Е( 10); 

то при вводе, управляемом данными, входные значения должны иметь 
вид: А.В (2) = 14.7, А.С.Е (5,7) = 10.8 и т. д. 

Присваивание по имени BY NAME. (В подмножестве ПЛ/1 при¬ 
сваивание по имени запрещено.) В предыдущем параграфе рассмат¬ 
ривались операции над структурами и операторы присваивания. В по¬ 
следнем случае две структуры должны были иметь одинаковое строе¬ 
ние. Добавляя слова BY NAME, которые отделяются от выражения 
запятой, можно производить присваивание и операции над соответству¬ 
ющими именами в выражении, описывающем структуру. В таких вы¬ 
ражениях номера уровней не обязательно должны быть одинаковыми. 
В качестве иллюстрации рассмотрим следующее объявление: 

DCL 1 OLD. 2 ODATE, 2 AMOUNT, 

1 NEW, 2 NDATE, 2 AMOUNT, 2 PER_CENT_INCREASE, 

1 TOTAL, 2 AMOUNT 2 DATE, 2 PER_CENT_INCREASE; 

Оператор TOTAL = OLD + NEW, BY NAME; эквивалентен опера¬ 
тору TOTAL. AMOUNT = OLD. AMOUNT + NEW. AMOUNT; 

Несмотря на то что PER _ CENT_INCREASE появляется как 

в NEW, так и в TOTAL, никакого добавления не делается, так 
как PER _ CENT _ INCREASE нет в OLD. 
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7.5. НЕКОТОРЫЕ ДОПОЛНИТЕЛЬНЫЕ 
ВОЗМОЖНОСТИ ПЛ/1, НЕ РАССМАТРИВАЕМЫЕ 
В НАСТОЯЩЕЙ КНИГЕ 

ПЛ/1 — это язык, обладающий разнообразными возможностями. 
При необходимости он позволяет программисту осуществлять дейст¬ 
венный контроль над работой вычислительной машины и программой, 
полученной в результате трансляции. Основные черты ПЛ/1, а также 
ряд черт, которые нельзя назвать основными, были рассмотрены в на¬ 
стоящей книге. 

В настоящем параграфе мы кратко представим некоторые из осо¬ 
бенностей ПЛ/1, которые до сих пор в книге не рассматривались. Цель 
их рассмотрения —познакомить читателя с их существованием и за¬ 
интересовать его в дальнейшем изучении языка ПЛ/1. Более детально 
эти черты ПЛ/1 рассматриваются в руководствах по работе на конкрет¬ 
ных вычислительных системах. 

Асинхронные процедуры. Когда обрабатывается программа на 
Фортране, каждый оператор выполняется один за другим в соот¬ 
ветствии с логикой программы. В процессе решения это может привести 
к тому, что центральный процессор ЭВМ будет простаивать, пока коман¬ 
ды ввода и вывода не будут полностью выполнены. Система буферов, 
встроенная в большинство современных вычислительных машин, поз¬ 
воляет временно задержать передачу информации между оперативной 
памятью и внешними запоминающими устройствами так, чтобы цент¬ 
ральный процессор мог продолжать выполнение программы. Однако 
и буфер не всегда решает задачу полной загрузки процессора, тг.к как 
нельзя осуществить передачу большого объема информации со ско¬ 
ростью, требуемой центральным процессором. Программист может 
получить больший эффект на электронной вычислительной машине 
при размещении в программе своих команд ввода-вывода. 

ПЛ/1 дает возможность асинхронного обращения к процедурам, 
т. е. после выполнения оператора CALL можно передать управление 
оператору, следующему непосредственно за оператором CALL. Выз¬ 
ванная процедура считается TASK (задачей) и ей присваивается не¬ 
который приоритет. Всякий раз, когда происходит перерывание, вы¬ 
полняется TASK с самым высоким приоритетом. Может быть создана 
цепь таких задач с различными приоритетами. 

При написании программ с помощью такого метода программист 
не может быть уверен в фактическом порядке выполнения отдельных 
частей программы. Одни операторы должны выполняться раньше 
других, а различные команды ввода обращаются к одному и тому же 
устройству ввода. Поэтому программист должен проверить, оконче¬ 
на ли данная TASK, или с помощью оператора WAIT ждать до тех пор, 
пока она не будет закончена. Подобная проверка может быть произ¬ 
ведена для того, чтобы выяснить, достигнуто ли в TASK определенное 
EVENT (событие). 

Описатели выравнивания и упаковки. Эти описатели служат толь¬ 
ко для описания массивов или структур строк данных. Они предостав¬ 
ляют программисту возможность выбора между экономией памяти 
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и скоростью выполнения программы. Описатель PACKED означает, 
что между элементами массива или структуры не должно быть неис¬ 
пользованных областей памяти. Описатель ALIGNED означает, что 
каждый элемент массива или структуры должен записываться, начиная 
с определенного места памяти. Это может привести к тому, что между 
элементами появятся неиспользованные области памяти. 

Шаблоны для обозначения стрелинговой денежной системы. 
В ПЛ/1 предусмотрены символы для редактирования ввода-вывода 
и вычисления данных, представляющих собой Британскую стерлин¬ 
говую денежную систему (фунты, шиллинги и пенсы). 

Ввод-вывод. До сих пор предполагалось, что во всех случаях ввода 
и вывода информации устройства ввода-вывода назначаются по умол¬ 
чанию системой как системные устройства ввода-вывода и что она 
готова их использовать. Но ПЛ/1 позволяет применять другие устрой¬ 
ства ввода-вывода и активизировать или маскировать их во время вы¬ 
полнения программы. 

Набор элементов данных на внешнем устройстве называется 
файлом. Эти элементы могут группироваться в несколько файлов, 
каждый из которых имеет свой собственный идентификатор и описа¬ 
тели. Например, для определения характера передачи данных с име¬ 
нем файла может быть связан один из следующих описателей: 
INPUT, OUTPUT или UPDATE. Способ, которым должны обрабаты¬ 
ваться элементы данных в файле, задается описателями STREAM 
и RECORD. Перезапись STREAM, как это было рассмотрено ранее, 
определяет непрерывный поток элементов данных в символьной форме, 
при перезаписи RECORD предполагается, что файл состоит из групп, 
содержащих один или несколько элементов данных, представленных 
в любой форме. 

Средства управления трансляцией. Обычно программист не может 
управлять программой во время трансляции. ПЛ/1 предусматривает 
две стадии трансляции: предпроцессорную и процессорную. Во время 
процессорной стадии программа транслируется в выходную рабочую 
программу. На предпроцессорной стадии исходная программа ска¬ 
нируется и обрабатываются предпроцессорные операторы, процедуры 
или блоки BEGIN. Большинство операторов ПЛ/1, рассмотренных 
в настоящей книге, могут быть преобразованы в предпроцессорные пу¬ 
тем добавления символа % непосредственно перед оператором. Однако 
работа с предпроцессорными операторами подчиняется определенным 
правилам. 

Предпроцессорные операторы вставляются в операторы ПЛ/1, ко¬ 
торые должны составлять исходную программу. Они могут служить 
для модификации исходной программы до того, как она будет транс¬ 
лирована в выходную программу. Эти операторы могут вводить в ис¬ 
ходную программу ряд операторов ПЛ/1, хранящихся на внешних 
устройствах. Они могут изменять любой идентификатор программы 
или определять, что транслироваться должны только определенные 
части программы. Следующие примеры показывают применение не¬ 
которых из этих правил. 
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В результате предпроцессорной обработки последовательности опе¬ 
раторов 

% DCL X CHAR(9), Y FIXED; 

% X = 'SQRT <Y*Z)'; 

% V«= 16; 

A = X-4*C; 

в текст программы будет вставлен оператор 

A=SQRT (00!5*Z) — 4*С; 

Если создана библиотека сегментов программы и ей присвоено имя 
LIB, то оператор 

% INCLUDE LIB (ABC); 

введет в программу элемент АВС библиотеки LIB. 

Для ускорения выполнения цикла DO можно воспользоваться 
следующей последовательностью операторов: 

% DCL I FIXED; 

% DO I = 1 ТО 4; 

А(1) =В(І) + 3*С(І)І 
% END; 

% DEACTIVATE Ij 

Первый оператор активизирует предпроцессорную переменную 
I, а последний указывает конец области ее определения, т. е. в после¬ 
дующих операторах она использоваться не может. В результате гене¬ 
рируется последовательность операторов 

А(1) = В(1) + 3*С<1); 

А(2) = В(2) + 3*С<2); 

A(3)=B(3)+3*q3)j 
A(4) = B(4)+3»C(4)j 

которая и записывается в .предпроцессорную программу. Точность 
этих индексов определяется по умолчанию. Заметьте, что эта запись 
не эквивалентна следующему циклу DO, имеющемуся в исходной 
программе 

DO 1=1 ТО 4; 

А(І) =В(І) + 3«С(І); 

END; 

так как он требует дополнительных вычислений индекса I и проверки 
его значения для выхода из цикла. 

Рассмотрим еще один пример: 

% DECLARE (READ_1N, PRINT_OUT, PLUS, MINUS, TIMES, U1V1DED_BY, START, 
FINISH) CHARACTER; 

% READ_IN = ’GET LIST’; 

% PRINT_OUT = ‘PUT SKIP LIST’J 

% PLUS=’-p; 

% MINUS = ’—’; 

% TIMES= ’*’; 

% DIVIDED_BY=’/*J 

% START=’PROCEDURE OPTIONS (MAIN)’j 
% FINlSH=’END’j 
ABC; START; 
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READ_IN (А, В, C, D); 

C=(A PLUS B) TIMES C PLUS (A MINUS D DIVIDED_BY C); 

PRINT_ OUT(C); 

FINISH ABC; 

Текст предпроцессорной программы будет следующим: 

ABC: PROCEDURE OPTIONS (MAIN); 

GET LIST(A, В, G, D); 

C=(A + B)*C+(A-D/G)s 
PUT SKIP LIST (G); 

END ABG; 

Описанные средства трансляции дают программисту новую воз¬ 
можность улучшения рабочей программы. 

Вы ознакомились с основными чертами одного из наиболее совер¬ 
шенных языков программирования высокого уровня ПЛ/1. Может быть, 
появятся алгоритмические языки ПЛ/2 или ПЛ /n. Но, несмотря на 
это, авторы надеются, что сведения, полученные из настоящей книги, 
несомненно, окажутся полезными. 


7.6. УПРАЖНЕНИЯ 

Короткие упражнения 

1. Пусть переменная А описана как индексированный массив размерности 
(100, 100). Переопределите части массива А как одномерный массив В следую¬ 
щим образом: 

а) В соответствует третьей строке массива А; 

б) В соответствует двадцать первому столбцу массива А) 

в) В соответствует элементам главной диагонали А; 

г) В соответствует четным элементам седьмой строки массива А; 

д) В соответствует элементам в позициях 1, 2, 4, 8, 16, 32 и 64 главной диа¬ 
гонали массива А. 

2. Объясните, как выполняются следующие операторы DECLARE: 

а) DCL A CHAR(8) INIT ('ABGDEFGH'), В CHAR(2) DEFINED А, С CHAR (3) DEFINED А 
POSITIONS), D CHAR(2) DEFINED G; 

б) DCL A (SO). Y (SO) DEF A (51-1SUB); 

в) DCL A (20), В (6, 4) DEFINED A (—4 + 4* 1SUB + 2 SUB))j 
r) DCL A (0 : 9), В (0 : 9) DEFINED A (INDEX(X, I SUB)); 


где X содержит строку символов, состоящую из цифр 0, 1, ..., 9. Например, 
•0135986742’. 

д) DCL А (10), В (9, 2) DEFINED А (— 1 + 1SUB + 2SUB); 

3. В следующем примере покажите, как будут редактироваться исходные 
данные с помощью шаблонов: 


Исходные данные Спецификация шаблонов 


Исходные данные Спецификация шаблонов 


а) 123456 

б) 1234 

в) -1234 
Г) 123456 
Д) 010203 

е) 000123 

ж) 000123 

з) 000123 


ZZZZV.9 


—9999 

99/99/99 

YY9YYY 

Z99999 

ZZZZ99 

ZZZZZZ# 


и) 123456 

к) -0012.34 

л) 001000 

м) 123 

н) 1234 

о) 12.34 

п) -12.34 

р) 12.34 


$9,999.99 

»,«9.99DB 

**•999 

99BZ 

ZZV99 

ZV999 

SZZV.999 

— ZZV.99 
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4. Приведено описание структуры, покатывающей запись' ачега очков иг¬ 
роков в баскетбол; 

DCL 1 PLAYER, 

2 NAME GHAR (30), 

2 TEAM CHAR (10), 

2 TOTAL_RECORD, 

3 FIELD_GOALS, 

4 ATTEMPTED FIXED (5); 

4 MADE FIXED (5); 

3 FOULS, 

4 ATTEMPTED FIXED (5), 

4 MADE FIXED (5), 

2 SEASON_RECOKD LIKE TOTAL_RECORD, 

2 LAST_QAME_RECORD LIKE TOTAL_RECORD} 


Ответьте на следующие вопросы: 

а) сколько различных элементов представляет каждое из следующих имен? 

1) PLAYER, 2) TEAM, 3) TOTAL _ RESORD, 4) FOULS, 6) MADE, 6) FOULS. MADE, 

7) SEASON_REGORD. FOULS. ATTEMPTED 

б) напишите сегменты программы, которые позволяют! 1) хранить в X 
общее число очков игрока во всех сыгранных играх. За гол в ворота засчиты¬ 
вается два очка, за безрезультативную игру — 1 очко; 2) обновить результаты 
общего счета игрока и счета сезона, если самая последняя запись счета хранит¬ 
ся в подструктуре 

LAST _ GAME_RECORD 

5. Ответьте на вопросы по следующей процедуре! 

(CONVERSION): А . PROCEDURE} 


(NOUNDEKFLOW): IF X/Y < 3«Y THAN X=»-J-^} ELSE X=Y-2j 


B: BEGIN} 

END Bl 


(NOOVERFLOW) : X = Y»Z/Wl 


END A; 

C: PROCEDURE] 
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DO WHILE (X - 
X=Y— Z; 
Y=3*Z;, 
END; 


END Cj 

а) какова область действия ситуации CONVERSION? 

б) каким образом можно маскировать ситуацию CONVERSION для всего 
блока начала В? 

в) как можно избежать прерывания при делении на нуль во всех опера¬ 
торах процедур А и С, но не в В? 

г) каково значение приставки (NOUNDERFLOW), которая добавлена 
к оператору 1F в процедуре А? 

д) покажите, как вы будете инициировать ситуацию SIZE для всего цикла 
DO в процедуре С; 

е) напишите оператор ON, который будет передавать управление оператору 
с меткой CON, если во время выполнения процедуры А возникает ситуация 
CONVERSION. 


Задачи для программирования 

1) Напишите программу, чтобы помочь преподавателю выставить оценки 
во всех группах студентов, с которыми он занимался в течение текущего семестра. 
Для описания переменных используйте структуры. Эта программа должна вы¬ 
полнить за преподавателя всю необходимую в этом случае работу и выдать ре¬ 
зультаты в таком виде,чтобы преподавателю было легко решить, какую оценку 
ставить каждому студенту. Программа должна быть по возможности общей, 
а вход в программу — по возможности свободный, чтобы ею легко было поль¬ 
зоваться. В этой ситуации, вероятно, необходимо сочетание операторов DATA, 
LIST и EDIT. 

При планировании программы должно быть учтено следующее: 

а) в программе нужно предусмотреть различное число групп и различное 
число студентов в каждой группе; 

б) количество баллов по данному экзамену не может превосходить 100; 

в) преподаватель может пожелать ввести различные веса оценок за раз¬ 
личные экзамены; 

г) для каждого студента должна быть заведена отдельная карта, так как 
может потребоваться не только фамилия студента, но и другие данные; 

д) программа, вероятно, будет выполняться не один раз для каждой группы 
и для выставления баллов за определенный период; 

е) преподаватель может в любое время пожелать получить список студентов 
группы без списка баллов; 

ж) для каждой группы на каждой странице выходных данных должен 
быть заголовок и дата; 

з) выходные данные должны включать общие сведения о каждом студенте, 
его баллы, используемые веса и средний балл; 

и) было бы желательно иметь два листинга: один, составленный в порядке 
считывания фамилии студента (для проверочного считывания), другой, составлен¬ 
ный в порядке убывания по среднему баллу успеваемости. В последнем случае 
нужно группировать фамилии студентов по среднему баллу, округленному до 
десятков: 90, 80 и т. д.; 

к) полезной может быть информация о количестве студентов, числе экза¬ 
менов, о самом высоком балле, который можно получить на каждом экзамене, 
о среднеарифметическом и средневзвешенном баллах для каждой группы; 

л) в качестве подпрограммы для получения графика выходных данных 
для каждой группы можно воспользоваться подпрограммой из упражнения 5 
главы 5; 
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м) у некоторых студентов баллы могут быть не выставлены по различным 
причинам: студент пропустил курс, но данные о нем сохраняются для отчета: 
Студент не сдавал экзамена, но не был от него освобожден (выставляют нулевой 
балл и это должно найти отражение в выходных данных); студент не сдавал 
•кзамена, потому что был от него освобожден, и сдавать его не будет (в выход¬ 
ных данных это должно быть отражено); студент является вольным слушателем; 

н) может возникнуть необходимость изменить некоторые оценки после то¬ 
го, как часть их уже будет отперфорирована. Следует предусмотреть средстве 
для того, чтобы это было легко сделать; 

о) нужно отперфорировать карты с комментарием, содержащим инструкции 
по использованию программы; 

п) преподаватель может воспользоваться программой для целой группы, 
применяя две или три различные системы весов оценок. 

2. Данные, представляющие собой счета на налог, отперфорированы на кар¬ 
тах следующим образом: 

кол. 1 — 10 фамилия 

кол. 21 — инициал второго имени 

кол. 26 —30 номер счета 

кол. 31—45 улица, номер дома 

кол. 46 — 55 город 

кол. 56 — 57 штат 

кол. 58 — 62 ZIP код 

кол. 65 — 70 баланс на время последнего взноса 
кол. 75— 80 сумма, которую необходимо выплатить со времени 
последнего взноса 

Вся символьная информация, отперфорированная в поле данных, левоуста¬ 
новленная, а вся числовая информация правоустановленная. Данные о денеж¬ 
ных расчетах в колонках 65—80 выражены в долларах и центах и отперфори¬ 
рованы без десятичной точки. 

Считайте эти карты и отпечатайте ежемесячный отчет о каждом счете. В от¬ 
чете должны быть отпечатаны фамилия .клиента, адрес, номер счета, последний 
итог, сделанные взносы (если они были сделаны), пеня, новый итог и сумма, ко¬ 
торую необходимо выплатить. Новый итог равен последнему итогу — сделанные 
взносы + пеня (пеня равна 1,5% суммы последнего итога). Требуемая для вы¬ 
платы сумма равна 10% нового итога или 5 долларам (в зависимости от того, 
какая сумма больше). Если вносимый взнос не покрывает требуемой суммы, то 
налагается штраф из расчета 2%. 

Для редактирования ввода-вывода воспользуйтесь структурами и шабло¬ 
нами. Организуйте упорядоченный вывод данных, отпечатайте каждый индиви¬ 
дуальный счет и включите сумму, показывающую общий итог. 


7 Зак. 1278 


ПРИЛОЖЕНИЕ А. СИМВОЛЫ И КОМБИНАЦИИ СИМВОЛОВ НА ПЕРФОКАРТАХ 
И В КОДАХ EBCDIC 


60-символьный алфавит 


! 48-символьный алфа 


нации символов 

перфокарты 

8-битовый 

вимволы 
и комбина- 

перфокарты 

8-битовый 




символов 



Буквенные 






Знак доллара $ 

11—8—3 

0101 1011 

"„ѴГ 

А 

11-8—3 

0101 1011 

Знак номера # 

А 

8—3 

12—1 

0111 1011 
1100 0001 

12—1 

1100 0001 

в 

12—2 

1100 0010 

в 

12-2 

1100 0010 

с 

12—3 

1100 ООП 

с 

12—3 

1100 ООП 

D 

12—4 

1100 0100 

D 

12-4 

поо ото 

Е 

12-5 

1100 0101 

Е 

12—5 

1100 0101 

F 

12—6 

1100 оно 

F 

12—6 

1100 оно 

G 

12—7 

1100 0111 

G 

12—7 

1100 0111 

Н 

12-8 

1100 1000 

н 

12-8 

1100 1000 

1 

12—9 

1100 1001 

I 

12—9 

1100 1001 

J 

11—1 

1101 0001 

J 

11-1 

1101 0001 

К 

11-2 

1101 0010 

к 

11-2 

1101 0010 

L 

11—3 

1101 ООП 

L 

11—3 

1101 ООП 

М 

11—4 

1101 0100 

м 

11-4 

Hoi ото 

N 

11—5 

1101 0101 

N 

11-5 

1101 0101 

О 

11—6 

1101 оно 

о 

11-6 

1101 оно 

Р 

11—7 

1101 0111 

р 

11-7 

1101 ОШ 

Q 

11—8 

1101 1000 

Q 

11—8 

1101 1000 

R 

11-9 

1101 1001 

R 

11—9 

1101 1001 

S 

0—2 

1110 0010 

S 

0—2 

1110 0010 

Т 

0—3 

1110 ООП 

т 

0-3 

1110 ООП 

и 

0—4 

1110 0100 

и 

0-4 

пт ото 

V 

0—5 

1110 0101 

V 

0—5 

1110 0101 

W 

0-6 

1110 оно 

W 

0—6 

1110 оно 

X 

0—7 

1110 0111 

X 

0—7 

то от 

Y 

0—8 

1110 1000 

Y 

0—8 

1110 1000 

Z 

0—9 

1110 1001 

1 2 

0—9 

1110 1001 

Числовые 0 

0 

1111 0000 

о 

0 

1111 0000 

1 

1 

1111 0001 

1 

1 

1111 0001 

2 

2 

1111 0010 

2 

2 

1111 0010 

3 

3 

1111 ООП 

3 

3 

1111 ООП 

4 

4 

1111 0100 

4 

4 

пи ото 

5 

5 

1111 0101 

5 

5 

1111 0101 

6 

6 

1111 оно 

6 

6 

1111 0І10 

7 

7 

1111 0111 

7 

7 

1111 0111 

8 

8 

1111 1000 

3 

8 

1111 1000 

9 

9 

1111 1001 

9 

9 

1111 1001 

Специальные 
символы и комби¬ 
нации символов 

Пробел 

Точка 

не перфори¬ 
руется 
12—8—3 

0100 0000 

0100 1011 


не перфори¬ 
руется 
12-8-3 

ото оооо 

ото юн 

Знак «меньше» < 

12-8-4 

0100 1100 

LT 

11-3,0-3 
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Продолжение прилож. А 


60-аимвольный алфавит 

48-символьный алфавит 


• 


символы 



символы и комби¬ 
нации аимполов 

перфокарты 

8-битовый 

и комбина¬ 
ции 

перфокарты 

8-битовый 




символов 



Открывающая 

12—8—5 

0100 1101 

( 

12-8-5 

0100 1101 

скобка ( 

Плюс + 

12—8—6 

0100 1110 

+ 

12—8—6 

0100 1110 

Символ «или» 1 

12—8—7 

0100 1111 

$5о 

11-6,11-9 


Символ «и» & 

12 

0101 0000 

12-1, 11- 






—5,12—4 


Звездочка * 

11—8—4 

0101 1100 


11—8—4 

0101 1100 

Закрывающая 
^ скобка ^ ) 

11-8-5 

0101 1101 

) 

11-8-5 

0101 1101 

118 6 

0101 1110 


0—8 3 





12—8—3 
(см. примеч. 6) 



Символ «нет» —» 

11-8—7 

0101 1111 

NOT 

11—5,11—6,0— 


Минус — 

11 

0101 0000 

_ 

11 

ОНО 0000 

Наклонная черта / 

0-1 

0101 0001 

; 

0-1 

ОНО 0001 

Запятая 

Процент % 

0—8—3 

ОНО 1011 

0-8-3 

ОНО 1011 

0—8—4 

ОНО 1100 

// 

0—1, 0-1 
(см. примеч. 5) 


Символ разбивки 

0-8-5 

ОНО 1101 


(см. примеч. 3) 


Знак «больше» > 

0-8-6 

ОНО 1110 

GT 

12—7, 0-3 


Вопросительный 

0-8—7 

ОНО 1111 


(см. примеч. 3) 


знак ? 






(см. примеч. 8) 
Двоеточие і 

8—2 

0111 1010 


(см. примеч. 7) 
12_8_з 12—8— 



Апостроф (ка¬ 

8-5 

0111 1101 


з’ 

8-5 

0111 1101 

вычка) 

Знак равенства 

8—6 

0111 1110 


8-6 

0111 1110 

или присваи¬ 
вания значе¬ 






ния = 






Меньше или 

12-8—4,8— 


LB 

П—3,12-5 


равно <= 

6 





Конкатенация || 

12—8—7, 


CAT 

12-3,12—1,0- 



12-8-7 



3 


Возведение в 

11-8-4, 



11—8—4,11— 


степень ** 

11-8-4 



8—4 


Не меньше — < 

11- 8-7, 

12- 8-4 


NL 

11-5,11—3 





NO 



"" 

8-6 ’ 


— ’ — 


Не равно —«= 

11-8-7, 8-6 


NB 

11—5,12—5 


Больше или 

0-8—6,8-6 


QB 

12-7,12—5 


равно >= 

Начало приме¬ 

0-1,11—8— 


/* 

0—1,11—8—4 


чания /* 

4 





Конец примеча- 

11—8—4,0— 


V 

11-8-4,0—1 


Знак указателя 

11,0—8—6 


PT 

11—7,0—3 


-> 





, ! 


195 





















Примечания 


1. В комбинациях еимволов пробелы запрещены. 

2. При 48-символьном алфавите слова GT, GE, NE, LE, LT, NOT, 
OR, AND и CAT резервируются и не могут елужить идентификато¬ 
рами. 

3. В 48-символьном алфавите символы фф, С, — и Р, разрешенные 
в 60-еимвольном алфавите, не используются. 

4. Для отделения символа от идентификаторов в случае комбинации 
символов необходимо оставить пробелы перед и после комбинации. 
Например, X GT Y нельзя записать как XuTY. 

5. Перед двумя наклонными чертами (или после них), обозначаю¬ 
щими знак процента, необходимо оставить пробел, если перед ними 
(или после них) стоит ввездочка. 

6. Запятая и точка (,.) могут обозначать знак «;», но если они встре¬ 
чаются в строке еимволов или в комментарии, или же за ними сразу 
следует цифра, то они не означают знак «точка а вапятой». 

7. Если после символа «точка» следуют две точки, означающие двое¬ 
точие, то после точки ставится пробел. 

8. В настоящее время в ШШ вопросительный знак не исполь¬ 
зуется. 



ПРИЛОЖЕНИЕ Б. ТАБЛИЦА ОПИСАТЕЛЕЙ,, ВСТРЕЧАЮЩИХСЯ В КНИГЕ 


Опиоатель 

Сокращения 1 

Употребление 
в подмно- 

Параграфы# в которых 


жеотве 

они встречались 

ALIGNED 


да 

7.5 

AUTOMATIC 

AUTO 

да 

6.4 

BASED 


да 

6.4 

BINARY 

BIN 

да 

2.4,3.4,3.5 

BIT (длина) 


да 

3.5 

BUILTIN 


да 

6.5 

CHARACTER (длина) 

CHAR 

да 

3.5 

COMPLEX 

CONTROLLED 

m 

нет 

нет 

2.4,3.4,3.5 

6.4 

DECIMAL 

DEC 

да 

2.4,3.4,3.5 

DEFINED 

DEF 

да 

7.1 

ENTRY 


да 

6.5 

EXTERNAL 

EXT 

да 

6.3 

FILE 


да 

7.5 

FIXED 


Да 

2.4,3.4,3.5 

FLOAT 


да 

2.4,3.4,3.5 

INITIAL 

INIT 

нет 

3.5,6.4,6.5 

INTERNAL 

INT 

да 

6.3,6.4 

LABEL 


да 

3.5 

LIKE 


нет 

7.4 

PICTURE 

PIG 

да 

7.3 

POSITION (I) 

POS (i) 

нет 

7.1 

REAL 


нет 

2.4,3.4,3.5 

RETURNS 


Да 

6.5 

STATIC 


да 

6.4,6.7 

UNALIGNED 

UNAb 

нет 

7.5 

VARYING 

VAR 

нет 

3.5 


1 В подмножестве ПЛ/1 сокращения запрещены. 


ПРИЛОЖЕНИЕ В. ТАБЛИЦА КЛЮЧЕВЫХ СЛОВ (ЗА ИСКЛЮЧЕНИЕМ 
ОПИСАТЕЛЕЙ И ФУНКЦИЙ), КОТОРЫЕ ВСТРЕЧАЮТСЯ В КНИГЕ 


Ключевое олово 

Сокращение 1 

Применения 

Употреб* 

подмно- 

Параграфы, 
в Которых они 
встречаются 

ALLOCATE 


оператор 

нет 

6.4-6.6 

BEGIN 


оператор 

да 

2.3,3.2, глава 6 

BY 


конструкция опе¬ 
ратора DO 

да 

2.6,4.7 

BY NAME 


необязательное 
слово оператора 
присваивания 

нет 

7.4 

CALL 


оператор или не¬ 
обязательное 
слово в INITI¬ 
AL 

да 

глава 6 

CHECK 


условие 

нет 

2.7 

COLUMN (w) 

COL (w) 

элемент формата 

да 

5.2-5.4 


1 В подмножестве ПЛ/1 сокращения запрещены. 














Продолжение прилож. В 





Употреб- 

Параграфы, 

Ключевое слово 

Сокращение 

Применения 

подмно 

в которых они 




встречаются 

CONDITION 


условие 

нет 

7.2, приложение Г 

CONVERSION 

. CONV 

условие 

да 

7.2, приложение Г 

COPY 


необязательное 

нет 

2.7,5.2-5.4 



слово в опера¬ 
торе 



data 


ввод-вывод непре- 

нет 

5.3,5.6 



рывным ПОТО- 



DECLARE 

DCb 

оператор 

да 

2.4,3.5,6.3 

DISPLAY 


оператор 

да 

5.7 

DO 


оператор 

да 

2.6,4.7 

EDIT 


ввод-вывод непре- 

да 

5.4-5.6 



рывным пото¬ 
ком 



ELSE 


конструкция one- 

да 

2.6,4.8 



ратора IF 



END 


оператор 

Да 

2.3,2.6,3.2, 

4.7,6.2 

ENDFILE (имя 
файла) 


условие 

Да 

2.7, приложение Г 

ENDPAGE (имя 
файла) 


условие 

да 

7.2, приложение Г 

ENTRY 


описатель или 

да 

6.2 (оператор) 



оператор 



ERROR 


условие 

да 

7.2, приложение Г 

EXIT 


оператор 

нет 

6.2 

FINISH 


условие 

нет 

7.2, приложение Г 

FIXEDOVERF- 

LOW 

FOFL 

условие 

да 

7.2, приложение Г 

FORMAT (спи¬ 


оператор 

да 

5.4 

сок) 




FREE 


оператор 

нет 

6.4 

GET 


оператор 

да 

2.7,5.2—5.6 

GO TO 

GOTO 

оператор 

да 

2.6,4.6,6.2 

IF 


оператор 

да 

2.6,4.8 

LINE (w) 


элемент формата, 

да 

2.7,5.2-5.4 



необязательное 
слово оператора 
PUT 
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Продолжение прилож. В 


Ключевое слово 

Сокращение 

Применения 

Употреб- . 

подмно- 

Параграфы, 
в которых они 

LIST 


ввод-вывод не¬ 

прерывным по 
током 

да 

2.7, 5.2, 5.6 

MAIN 


необязательное 
слово операто¬ 
ра PROCEDU¬ 
RE 

да 

3.2, 6.1,6.2 

NOCHECK 


префикс условия 

нет 

7.2, приложение Г 

NOCONVERSION 


префикс условия 

да 

7.2, приложение Г 

NOFIXEDOVER- 

FLOW 

NOFOFL 

префикс условия 

Да 

7.2, приложение Г 

NOOVERFLOW 

NOOFL 

префикс условия 

да 

7.2, приложение Г 

NOSIZE 


префикс условия 

да 

7.2, приложение Г 

NOSTRINGRAN - 
GE 

NOSTRG 

префикс условия 

нет 

7.2, приложение Г 

NOSUBSCRIPT- 

NOSUBRG 

префикс условия 

нет 

7.2, приложение Г 

NOUNDERFLOW 

NOUFL 

префикс условия 

да 

7.2, приложение Г 

NOZERODIVIDE 

NOZDIV 

префикс условия 

да 

7.2, приложение Г 

ON 


оператор 

да 

7.2. приложение Г 

OPTIONS (спи¬ 
сок) 


необязательное 
слово в опера¬ 
торе PROCEDU¬ 
RE 

да 

2.3, 3.2, глава 6 

OVERFLOW 

OFL 

условие 

да 

7.2, приложение Г 

PAGE 


элемент формата, 
необязательное 
слово в опера¬ 
торе PUT 

да 

2.7, 5.2-5.4 

PROCEDURE 

PROG 

оператор 

да 

2.3, 3.2, глава 6 

PUT 


оператор 

да 

2.7,5.2—5.6 

RECURSIVE 


необязательное 
слово в опера¬ 
торе PROCEDU¬ 
RE 

нет 

6.7 

REPLY (id) 


необязательное 
слово в опера¬ 
торе DISPLAY 

да 

5.7 

RETURN 


оператор 

да 

6.2 

REVERT 


оператор 

да 

7.2, приложение Г 

SIGNAL 


оператор 

да 

7,2, приложение Г 
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Продолжение прилож. В 


Ключевое слово 

Сокращение 

Применения 

Употреб- 

В ПОДМНО- 

, П ®?1 





встречаются 

SIZE 


условие 

да 

7.2, приложение Г 

SKIP [(х)] 


элемент формата, 

да 

2.7, 5.2-5.4 


необязательное 
слово в опера¬ 
торах GET или 
PUT 





SNAP 


необязательное 

нет 

7.2, приложение Г 



слово в опера¬ 
торе ON 



STOP 


оператор 

да 

6.2 

STR INGRANGE 

STRG 

условие 

нет 

7.2, приложение Г 

STRING (id) 


необязательное 

да 

5.6 



слово в опера¬ 
торах GET и 





PUT 



ISUB 


фиктивная пере- 

нет 

7.1 



менная описа¬ 
теля DEFINED 



SUBSCRIPTRAN- 

GE 

SUBRG 

условие 

нет 

7.2, приложение Г 

SYSIN 


имя входного 

нет 

2.7 



файла стандар¬ 
тной системы 





IBM 



SYSPRINT 


имя выходного 

нет 

2.7 



файла стандар¬ 
тной системы 





IBM 



SYSTEM 


необязательное 

да 

7.2, приложение Г 



слово в опера¬ 
торе ON 



THEN 


конструкция опе¬ 

да 

2.6, 4.8 



ратора IF 



TO 


конструкция опе¬ 

да 

2.6, 4.7 



ратора DO 



TRANSMIT 


условие 

да 

7.2, приложение Г 

UNDERFLOW 

UFL 

условие 

да 

7.2, приложение Г 

WHILE 


конструкция опе¬ 
ратора DO 

да 

2.6, 4.7 

ZERODIVIDE 

ZDIV 

условие 

да 

7.2, приложение Г 
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Продолжение прилож. 



подмножестве ПЛ/1 сокращения запрещены. 





















































Продолжение 
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Встроенные функции строк символов: все аргументы, если только 
они не объявлены иначе, представляют собой строки символов или массивы, сос¬ 
тоящие из строк символов. Если функция содержит более одного аргумента, то 
к более короткому добавляются нули, чтобы число символов всех аргументов бы¬ 
ло одинаково. Те аргументы, которые полагаются строками символов" а в дейст¬ 
вительности таковыми не являются, должны быть преобразованы в строки би¬ 
тов, если они представляют собой двоичные числа, или в строки символов, если 
они десятичные числа. 


Имя 

Аргументы 

Значение результата 

BIT (*l,yj) 

x — выра жение , которое 

х преобразовывается в стро¬ 

должно быть преобразо- 

ку битов длиной у; если пе¬ 


вано 

ременная у не указана, то 


у—десятичная целая 

длина результата опреде¬ 


константа 

ляется по X 

BOOL (х, у. г) 

(см. параграф 4.4) 


CHAR (х [,у]) 

х —выражение, которое 

х преобразовывается в стро¬ 

должно быть преобразо- 

ку символов длиной у; ес¬ 


вано 

ли переменная у не указа¬ 


у —десятичная целая 

на, то длина результата 


константа 

определяется по х 

HIGH (х) 

десятичная целая коне- 

строка символов длиной х, 


танга 

причем каждый символ име¬ 
ет наибольшее значение в 
последовательности 

INDEX (х, у) 


номер самого левого эле¬ 
мента х: начиная с него у 
входит в х в качестве под¬ 
строки. 

Если у не принадлежит х 
или если строка имеет ну¬ 
левую длину, то результа¬ 
том будет значение ОВ 

LENGTH (х) 1 


двоичное целое число, пред¬ 
ставляющее текущую дли¬ 
ну X 

LOW (х) 

десятичная целая конс¬ 

строка символов длиной х, 


танта 

причем каждый символ име¬ 
ет наименьшее значение в 
последовательности 

REPEAT (X. у) 

строка 

х конкатенирует сам с со¬ 
бой у раз 


у —десятичная целая 

если у<0, то результатом 


константа 

будет строка х 

STRING (x) 1 

х—имя элемента, мас¬ 

конкатенация всех эле¬ 


сива или структуры 

ментов в X 

SUBSTR (x, у [,г])2 

(см. параграф 4.4) 


UNSPEC (x)a 

х не может быть масси¬ 

внутреннее представление 


вом 

х в форме строки битов 


1 В подмножестве ПЛ/1 не употребляется. 
• Может служить как псевдопеременная. 
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Функции массивов: все аргументы представляют собой массив, результатом 
являются значения элементов массива, если только они не объявлены иначе. 


Имя 

Аргументы 

Значение результата 

ALL (х) 

массив из строк битов 

строка битов, где 1-й бит равен 

1, если в х имеется і-й бит 
каждого элемента и он равен 1; 
в противном случае і-й бит ра¬ 
вен 0 

ANY (х) 

массив из строк битов 

строка битов, где і-й бит равен 

1, если хоть в каком-нибудь из 
элементов х имеется і-й бит и 
он равен 1; в противном случае 
і-й бит равен 0 

DIM (х, л) 1 

л —двоичное целое число 

двоичное целое число, задаю¬ 
щее текущую л-ю размерность 

Н BOUND (х, л) 1 

я—двоичное целое число 

двоичное целое число, задаю¬ 
щее текущий верхний предел л-й 
размерности х 

LBOUND (х, я) 1 

я —двоичное целое число 

двоичное целое число, задаю¬ 
щее текущий нижний предел 
л-й размерности х 

POLY (х, у) 1 

х, у—одномерные массивы 

многочлен от х и у 

PROD (х) 


произведение всех элементов вх 

SUM (х) 


сумма всех элементов в х 


1 В подмножестве ПЛ/1 не употребляется. 

Различные функции 


Имя 

Аргументы 

Значение результата 

ALLOCATION (х) 1 

COUNT(hmh фай¬ 
ла) 1 

имя элемента, мас¬ 
сива или старшей 
структуры с описа- 

CONTROLLED 

должен иметь опи¬ 
сатель STREAM 

’1’ В, если память выделяется для 
X, определенного в настоящем блоке; 
в противном случае—’0’ В, 

двоичное целое число с фиксированной 
точкой, задающее число элементов, 
передаваемых в последней операции 
ввода-вывода по имени файла 

DATE 


нет 

строка символов ’yymmdd’, где уу — 
текущий год, mm — текущий месяц, 
dd— текущий день 

LINENO(hmh 

ла) 1 

фай- 

должен иметь опи¬ 
сатель PRINT 

двоичное целое число с фиксированной 
точкой, задающее текущий номер 
строки имени файла 

TIME 


нет 

строка символов ’hhmmsstt’, пред¬ 
ставляющая текущее время, где hh — 
часы, mm — минуты, ss— секунды, 
ttt —миллисекунды 


1 В подмножестве ПЛ/1 не употребляется. 












Функции-ситуации: аргументов не содержат, могут употребляться только в 
ON-units или блоках, активизированных ON-units 




Имя 

Значение результатов 

DATAFIELD 1 

строка символов VARYING, содержащая поле ванных, 
вызвавших последнее прерывание NAME 

ONCHARl.a 

строка символов длиной I, содержащая символ, кото¬ 
рый вызвал последнее прерывание CONVERSION 

ONCODE 1 

двоичное целое число, определяющее своим значением 

ONCOUNT* 

последнее прерывание 

двоичное значение, дающее число прерываний, включая 

ONFILE 1 

последнее 

строка символов VARYING, содержащая имя файла, 
которое вызвало прерывание при вводе-выводе или преоб¬ 

ONLOC 1 

разовании 

строка символов VARYING, содержащая имя точки вхо¬ 

ON SOURCE 1.2 

да в процедуру, которая вызвала прерывание 
строка символов VARYING, описывающая имя поля, ко¬ 
торое вызвало прерывание при ситуации CONVERSION 


В подмножестве ПЛ/1 не употребляется. 
Может служить в качестве псевдопеременной. 






ОТВЕТЫ К КОРОТКИМ УПРАЖНЕНИЯМ 


1. Примеры в), г) и д) правильны; а) начинается не с алфавитного 
символа; б) содержит слишком много символов. 

2. Примеры б), г), д) правильны; а) содержит два символа, которые 
не являются буквенно-цифровыми символами или разделителями, 
в) содержит пробел, который не является буквенно-цифровым симво¬ 
лом или разделителем. 

3. Пример а) правилен, б) неправилен; нет точки с запятой; в) пра¬ 
вилен (START — это метка, а не ключевое слово); г) неправилен, сим¬ 
вол операции не может стоять слева от символа ’=’; д) правилен; 
е) неправилен; 4А неверное имя переменной, оно не может означать 
4 X А; ж) неправилен; X, Y, Z необходимо заключить в круглые скоб¬ 
ки; з) неправилен; CHECK (SUM, X, Y) нужно заключить в круглые 
скобки так же, как и МАШ; и) правилен; к) неправилен; $10.00 не 
может быть меткой имени, так как в нем содержится специальный сим¬ 
вол (.); л) правилен. 

4. Обратите внимание на то, что запись IFA*B > 0 THEN X = 5; 
X = 4; неправильна, так как тогда оператор X = 4 всегда будет выпол¬ 
няться. Один из возможных ответов: 

IF А*В>0 THEN Х=5; 

THEN Х=4; 


5. а) А = 45, В = 45.00, С = . 1234500Е5; б) А = 00, В = 

= 00 12 С = 1234500Е0 

6. а)*А= 1111В, В=011І.11В б) 157.75 b) А=0100В, В=0100.00В 
(заметьте, что 20 (основание 10) = 10100 (основание 2)); г) 4 4.00. 

7. а) В результате будет 9 значений Z. Число напечатанных строк 
зависит от того, сколько цифр в каждой строке печатает та или иная 
система; б) 396 строк; в) 26 строк. 

8. а) ((А**В)*2) + (3.456* Y) 

б) (А + (В*С)) - (D/F) 

в) (А = В) I ((А < С) & (—,(В— і < (С* *2)))) 

г) ((А**(В**С))— D) = ((А*В)/С) 
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9. a) (A + B)/C 

б) A + B/C 

в) (A < B)| C > = D) 
r) A + В — (C + D) + 2*E 
д) A + В + (C + D)* 2*E 



в) r) 
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11. а) Т; б) Т; в) не имеет значения, так как — ( D выполняется пер¬ 
вым; г) Т; д) Т. 

12 . 

ON ENDFILE (SYS1N) GO ТО CONTINUE} 

SUM _ NEG, SUM_POS, NUM_ZERO = Oj 

READ: GET LIST (X); 

IF X< 0 THEN SUM_NEG=SUM_NEG+Xj 

ELSE IF X = 0 THEN NUM_ZERO = NUM_ZERO+1} 

EISE SUM_POS = SUM_POS + Xj 

GO TO READ; 

CONTINUE:_: 

13. Один из возможных ответов: 

DECLARE (X (25.5) FIXED (3), AVE (26) FIXED (4, I)) DECIMAL REAL- 

14. Запись Фортранного типа может быть следующей: 

PUT PAGE; 

DO 1 = 1 TO N; 

PUT SKIP LIST (A'N — I-f 1))} 

END; 

Более общий подход: 

PUT PAGE; 

DO I = N TO 1 BY - I| 

PUT SKIP LIST (A(I»j 
END; 


Глава 3 


A DECIMAL FIXED REAL (6. 2) 

B DECIMAL FLOAT REAL (5) 

С (6) DECIMAL FLOAT REAL (6) 

D BINARY FLOAT REAL (21) 

E DECIMAL FLOAT REAL (6) 

F REAL DECIMAL FLOAT (6) 

G неверно; несовместимые атрибуты BINARY DECIMAL 
H REAL FLOAT DECIMAL (6) 

1(16) BINARY FIXED REAL (16.0) 

J DECIMAL FLOAT REAL (6) 

а) INITIAL ((226)0) 

б) INITIAL C, (14) ((18)1.*)) 

B) INITIAL ((15) (0, 1, 0, 0, 2, (10)0)) 


3. В следующей записи символ Ь означает пробел: 


Имя переменной 


Присваиваемое значе 
•ХЬЬЬЬЬЬЬЬЬ’ 
’А’ВСЬЬЬЬЬЬ’ 
•THISblSbAb’ 
МОЮЮЮ'В 
•ІОЮОООО'В 
0032 
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4. DCL MARK (Б) LABEL INIT(L1, L2, L3, L4, L5)J 


GO TO MARK (I)! 

5. Задача 1 

DCL RADIUS FIXED (10, 4), VOLUME FLOAT (5); 

Обратите внимание на то, что если бы VOLUME был объявлен по 
умолчанию с точностью (6), то он мог бы быть опущен из оператора 
DECLARE. В приведенном примере нет необходимости объявлять 
FLOAT, но так как описатель точности не может следовать непосред¬ 
ственно за именем идентификатора, ставится FLOAT, чтобы отличить 
точность от размерности. 

Задача 2 

DGL (А, В, С) FIXED (8, 3» 

Задача 3 

DGL (X, Y, COUNTER) FIXED (3), (XSUM YSUM XSQD, YSQD, XY) FIXED (8). (AVERA. 
GE_X, AVERAGB_Y) FIXED (7, 2); 

Задача 4 

DCL (NUMBER, MAXIMUM_NUMBER, MINIMUM_NUMBER) FIXED (15, 5)! 

Задача 5 

DCL ((OLDTERM, OLDPI) INIT (0), (NEWTERM, NEWPI) INIT (З.ОЕО)) FLOAT (16), TERM 
FIXED (4) INIT (1), N FLOAT (16)) 

Задача 6 

DCL A (20) FIXED (10) INIT (1, 1, (18)0)> 

Задача 7 

DCL P FIXED (15,- 2), 1 FIXED (11, 6), (Q, Y. F, L) FIXED(4)1 

Задача 8 

DCL (A(501) INIT (1. 2, 3 (498)0), B(250), I INIT (2). T INIT (1)) FIXED (3)J 

Задача 9 

DGL A(8) FIXED (6, 2) INIT (20., 10., 5., 1.,. 25,. 1„ 05.. 01). (AMT_PD, DIFF, SOST) 
FIXED (8, 2), (I, J. NT) FIXED (3)) 

Задача 10 

DCL (INVALU, OUTVALU) FIXED <15, 2), EXPON FIXED (2)1 

Задача 11 

DCL (DEGREES, MINUTES, SEC) FIXED (3), (SIN_OF_ANGLE, ANGLE 1 ANGLE2, ANO. 

LE_INC) FIXED (10, 6» 

Задача 12 

DCL (RAND (500) INIT (1306, (499)0), CONSTANT, SUB, A(10) INIT ((2)1, 0, 1(2) 0,1(3)0)> 
FIXED (4), N FIXED (3), VALUE1 FIXED (8). VALUE2 FIXED (7), 0 FIXED ( 1)1 

Задача 13 

DCL (NUM, NUMBER (100)) FIXED (15. 5), (I, II, J. K) BINARY FIXED (4)j 
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Заметьте, что как BINARY, так и FIXED необходимы. 
Задача 14 


DCL (AREA, POINT (500, 2)) FLOAT (8)J 


Глава 4 


1. а) ’00010’В д) T В 


б) ЧИП’ В e) ’11011110ГВ 


в) ’10000’ В ж) 4110110’В 

г) ’1’ В 

2. a) ’ABCDEFGXYXYXY’ 

б) 1001В 

в) ОВ 

г) ’EFABC’ 

д) ’DEYYYYYFG’ 

е) ’САВСАВС’ 

3. Заметьте, что это не то же самое, что А, В = С + D. При необ¬ 
ходимости для вычисления выражения С + D делается преобразование. 
Сравнение (=) В с С + D также может сопровождаться преобразова¬ 
нием. Результатом такого сравнения будет строка битов с длиной 1, 
которая затем будет присвоена переменной А. 

4. а) ’011’В 

б) ’11111’ В 

в) ’01000’ В 


Б. а) I = INDEX (А,”); 

J,= INDEX (SUBSTR (А, I+l),”); 

K=i + J; 

Эти операторы могут быть объединены следующим образом: 

K=1NDEX(A, ”) + INDEX (SUBSTRfA, INDEX (А, 

б) пусть Y описан описателем CHARACTER (lj 

Y—SUBSTR (В, 10, 1); 

SUBSTR (В, 10, 1) = SUBSTR(B, 32. l)j 
SUBSTR (B. 32, l)=Yi 


6. a) B = —, Bj 

б) SUBSTR (B, 10, D-’l'Bj 

в) I = INDEX (В, '11Г B)i 


7. a) / 3 3 4 \ 

l 4 1 6 I 

б) приведет к ошибке; А и С неодинаковой размерности. 



( 
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/2 3 2\ 

U 2 6 

(I І) 


ж) (5 4 2) 

з) (5 3) 

и) 3 


к) 864 

л) 


'6 9\ 
9 26/ 


8. а) Два раза; L принимает значения 1 и 4; б) семь раз, X прини¬ 
мает значения 10, 9, 7, 9.4, 9.1, 8.8, 8.5 и 8.2; в) четыре раза; I при¬ 
нимает значения 7, 5, 3 и 1; г) семь раз; К принимает значения 1, 3, 
5, 7, 8, 9 и 10; д) если допустить, что LOOP является по умолчанию 
REAL FIXED BINARY (15,0), то это приведет к бесконечному повто¬ 
рению цикла. Начальное значение 3.2 усекается до 3, после чего цикл 
выполняется. Затем прибавляется приращение .3, давая 3.3, а 3.3 
снова усекается до 3 перед вторым повторением цикла и т. д. 


IF А+В>6 THEN GO TO LOOP) 


is IB; 

A: IF 1=10 THEN DO; 

оператор цикла 
1=1+IB; 

GO TO A) 

END; 

ELSE B: DO; 

оператор цикла 
IF X=Y THEN GO 10 B| 

END; 


в) X = !0.I) 

LOOP; X=X—.lj 

IF X<9. THEN GO TO EXIT) 
первая группа операторов 
I = OB; 

IN _ LOOP: 1=1+IB; 

IF I> 11 В THEN GO TO LOOP) 

IF I=1B THEN CHAR = 'ONE 

ELSE IF 1=1 OB THEN CHAR = *TWO *| 
ELSE CHAR= 'THREE’l 

вторая группа операторов 

GO TO IN_LOOP) 

EXIT:_1 


10. P. 


.10] PROGEDURE OPTIONS (MAIN)j 
DCL ANS BIT (60); 

ON ENDFILE (SYSIN) GO TO PRINT) 

I=OB; J=OB; 

IN; GET LIST (ANS); 

1=1+ IB; 

IF SUBSTR (ANS, 10, 1) * —i SUBSTR (ANS, 13,3) A ((SUBSTR (ANS. M, ») 
A SUBSTR (ANS, 26, I)) | (—| SUBSTR (ANS, 25, 1) & SUBSTR (ANS, **. »U> 
THEN J = J+ IB) 

GO TO IN; 
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PRINT! PUT LIST 0. J)1 
END P_10; 

Оператор IF в этой программе может Сыть записан! 

IF SUBSTR (ANS, 10, 1) & -1 SUBSTR (ANS, 13, 3) ft 

BOOL (SUBSTR (ANS, 26, 1), SUBSTR (ANS, 26, l), ’0110’B) 

THEN J = J+1B; 

Глава 5 

1. b означает пробел! 

-764.870 
bbbb—764 

—7648.70 
bb—76.487 
b—764.9* 
bbb—7649 

2. a) PUT EDIT (A) (PAGE. 16 (F(6,2), SKIP)); 

б) PUT EDIT (A) (PAGE, 16 (F (6,2), SKIP (2))); 

в) PUT EDIT ((A (I),- В (I), C(I) DO 1=1 TO 64)) (PAGE, 32 (3 F (20,2). SK!P))j 

г) Пусть HEADING — строка символов длиной 30 и в ней хранится 

• bbbARRAYbAbbbARRAYbBbbbARRAYbC’ 

PUT EDIT ((HEADING, (A(J + I), B(J + Ib C(J+1) DO 1=1 TO 32) DO J = 0,32)) 

(PAGE, A (30), SKIP<3), 32 (3 F (10,2), SKIP)); 

3. a) GET LI£T ((A (I), В (I) DO 1=1 TO 64)); 

6) GET EDIT ((A (I), В (I) DO 1=1 TO 64)) (F(10,2»J 

Нельзя полагать, что пробелы будут разделять элементы данных, 
как это сделано в примере а). 

в) GET EDIT (А, В) (F <10, 2)); 

4. а) вероятно, самое легкое—оставить на карте по крайней мере 
один пробел после 12.76 и затем отперфорировать А (5,9) = 13.2, 
А (7,18) = 15.75; и считывать эти значения оператором GET DATA; 

б) воспользуйтесь оператором 

GET LIST ((А <1. I) DO 1=1 ТО 20») 

и отпечатайте данные в произвольной форме, разделив их друг от друга 
по крайней мере одним пробелом. 

5. a) PUT EDIT ((A(I) DO I = 1 ТО 30)) (SKIP, F (7,2)); Заметь¬ 
те, что список данных не может состоять только из А, так как массив А 
имел размерность 50. 

б) PUT SKIP EDIT (((A (I,J) DO J = 1 TO 30) DO 1=1 TO 10)) <F (7,2), SKIP); 

Список данных также не может состоять только из А. 

в) PUT SKIP EDIT («А (I, J) DO 1=1 TO 10) DO J=1 TO 30)) (F(T,2), SKIP); 

6. PUT EDIT ('PL /Г, ’PAGE 1’) (PAGE, LINE (3). X (68), A (66), A); 
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-7.649E + 02 
Ь— 7.66E + 02 

невозможно; ширина поля должна быть 10 
-7.649Е+02 
—7.64870Е + 02 
bbbb— 764.87Е + 00 



Удовлетворительными могут также быть следующие два списка 
форматов: 

(РАОЕ, SKIP (2), Х(58), А, X (52), А); или (PAGE, SKIP (2), COLUMN (59), А, 

COLUMN (115), А)! 

7. PUT EDIT ((’PAGE 1 , N, ((A (1,30* (N— 1)+J) DO 1 = 1 TO 5) DO J=1 TO 30) DO N = 1 

TO 20» (PAGE, COLUMN (114), F (3), SKIP (3), 150 F(24, 4))i 

8. J = 0, K=3. L=2) 

9. PUT PAGE; 

DO L= 15, 17,35; 

PUT EDIT ((M DO 1=1 TO 4)) (LINE (L), 4 A (30)); 

END; 

10. PUT PAGE EDIT (A) (5 F (10), SKIP (6)); 

11. PR_11; PROCEDURE OPTIONS (MAIN); 

ON ENDFILE (SYS1N) GO TO PRINT; 

SUM=0; 

READ; GET LIST (X); 

IF X>0 THEN SUM=SUM+Xj 
GO TO READ; 
print; put list (SUM); 

END PR_11; 

Если вы предпочли оператор GET EDIT, то почему? 

12. Возможны два решения: 

a) IN; GET LIST (I); 

IF 1=1 THEN DO; 

GET LIST (X)J 


END;* 

ELSE DO; 

GET EDIT (CHAR) (COLUMN (15), A (36))» 


END; 

GO TO IN) 

Заметьте , что для считывания строки символов необходимо применить 
EDIT, так как в перфокарте данных не было кавычек. 

С) DECLARE STOP CHAR (80); 

IN; GET EDIT (STOR) (A (80)); 

IFSUBSTR (STOR, 1,1)=' Г THEN DO; 

GET STRING (STOR) EDIT (X) (X(9)„ F(U, 12))g • 


END; 

ELSE DO; 

GET STRING (STOR) EDIT (CHAR) (X(14), A (36))) 


END; 

OO TO IN; 

13. 1=4, J = 8, Z = 27.86, X = 4.3, Y = 8.72, A—31, B=48.721, C=3, D=15.7 

14. a) (F (14), X (4), A (8), F (1 0,2), X(15), A, F, (7.2)); 

6) (SKIP, X (5), 2 E (20,6), E (25,6), SKIP (2), F(6,l), F (14)) 
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Глава 6 


1. а) неправильно; значение N неизвестно до времени выполнения 
программы; б) то же, что в примере а); в) правильно, печать 3,1. 2.3. 

г) неправильно; д) неправильно; переменная А на предпоследней стро¬ 
ке имеет идентификатор, отличный от идентификатора переменной А 
в процедуре XYZ; е) правильно; печать 31.2.3.; ж) правильно; печать 
1.2.3.3 

2. а) А В. F, G 

В С, Е, F, О 

С Е, F, G 

D Е. F, G 

Е С, F, G 

F В, G 

G Н 

Н нет 

б) идентификатор LAB должен быть определен ко времени выпол¬ 
нения оператора GO ТО LAB; Если меткой LAB помечен только один 
оператор, он может быть в любом активном блоке, а те четыре, кото¬ 
рые, как нам известно, являются активными, — это А, В, С и G. 
Если в активных блоках имелись два оператора с меткой LAB, то 
управление передается оператору с этой меткой в блоке, в котором 
объявление LAB появилось ранее всего (либо явное, либо неявное). 

в) для того чтобы G стало именем входа в процедуру F, оно должно 
быть объявлено явно включением G ENTRY в оператор описания; 

г) в этой программе три различных Y. Область действия первого — 

A, В, С, D и Е; область действия второго— F; область действия треть¬ 
его— G и Н; 

д) в этой программе два различных X. Область действия первого — 

B, С, D, Е, G и Н; область действия второго— F; 

е) к моменту выполнения этого оператора активными будут сле¬ 
дующие блоки: А, В, Е, С и D. Так как блок Е активен, то его нельзя 
вызвать, если только он не описан описателем RECURSIVE; 

ж) обращение к G возможно, так как он не активен и представляет 
собой внешнюю процедуру; 

з) нет. Обращение к процедуре Н в настоящее время невозможно. 
Оно стало бы возможным при использовании точки входа в процеду¬ 
ру G. Однако необходимо очень тщательно следить за тем, чтобы в ре¬ 
зультате применения добавочных операторов при вызове процедуры 
G в какое-либо другое время не вызывалась бы и процедура Н. Ре¬ 
шение могло бы быть следующим: 

G: PROCEDURE; 

DCL X EXTERNAL, V FIXED; 


GO TO XYZj. 
GP; ENTPY; 

CALL H; 
RETURN; 
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Hi PROCEDURE) 


END H; 
XYZ; _ 


END G) 

и) по умолчанию H вырабатывает значение переменной, имеющей 
описатели DEC FLOAT REAL (6). Последние не совпадают с описа¬ 
телями переменной, полученной в результате выполнения (4* М — N), 
а именно BIN FIXED REAL (15,0). Это положение можно исправить, 
изменив оператор процедуры в Н: PROCEDURE (М, N) BIN FIXED; 
и добавив оператор DCL Н RETURNS (BIN FIXED); к процедуре G. 

3. 0, 7, 6. . 

Процедуры FOF и GOF представляют определение следующих про¬ 
цедур: 

(/(о)=о 

If Х=^0: 
f{X) = x + g(x) 

UW = 4-/(*-l) 

4. А активизируется с начала выполнения программы и остается 
активным все время ее выполнения. Оператор (2) объявляет X управ¬ 
ляемой переменной размерности 100 и она может храниться или осво¬ 
бождать память в А или В. Переменная Y хранится в памяти во время 
всего выполнения программы, но она неприменима в блоке С. (Заметь¬ 
те, что это будет справедливо для Y, даже если он не описан описа¬ 
телем STATIC, так как А остается активным.) Для переменной Z вы¬ 
деляется память, и она может быть использована только в В (так как 
В —внутренняя процедура) и в С (так как она объявлена описателем 
EXTERNAL). 

Операторы (3 — 6) отводят для X 100 ячеек памяти, считывают 
100 значений X, подсчитывают их сумму, хранят этот результат в Z, 
а затем освобождают 100 ячеек X. Оператор (7) вызывает В. 

Ко времени вызова В определены все идентификаторы процеду¬ 
ры А, за исключением X, которой в это время не было в памяти, и L. 
Оператор (14) (в А) объявляет L константой типа метки, в то время как 
оператор (9) (в В) объявляет L переменной типа метки. 

Оператор IF в (10) вызовет либо внешнюю процедуру С, либо про¬ 
изведет приращение I на 1 и продолжит выполнение процедуры В. 
При дальнейшем выполнении программы оператор (12) передаст уп¬ 
равление оператору, следующему за оператором CALL в процедуре А. 
В данном случае это будет оператор, следующий непосредственно за 
оператором (12). Все идентификаторы, определенные только в В (та¬ 
кие, как L, I, J), далее будут недоступными. Если выполняется опе¬ 
ратор CALL С (I, L), то имена идентификаторов I и L становятся М и 
N в процедуре С, к которой произведено обращение. Идентификатор I 
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оператора (18) отличается' от I оператора (10). При выполнении 
GO ТО N в операторе (21) управление передается оператору с меткой L 
в операторе (11). Освобождаются все области памяти, известные толь¬ 
ко в С, а выполнение программы продолжается оператором (11). 

После выполнения оператора (12) управление передается в А, как 
это имело место в ранее приведенном примере, когда выполнялась 
конструкция ELSE в операторе (10). Выполнение процедуры А про¬ 
должается до оператора (13), после чего снова может быть вызвана про¬ 
цедура В. И наконец, когда управление передается оператору (15), 
выполнение программы заканчивается. 


Глава 7 


1. a) DCL В (100) DEFINED А (3, 1SUB)! 
в) DfiLB(lOO) DEFINED А ( 1SUB, 21)) 
в) DCL В (100) DEFINED (A) (1SUB, 1SUB» 
р) DCL В (50) DEFINED А (7.2» 1SUB); 
д) DCL В (7) DEFINED А (2** (1SUB- 1)). 2** (1SUB-1)); 


2. а) строка 'ABCDEFGH' хранится в А; В относится к 'АВ'; С от¬ 
носится к 'DEF'; последняя часть неправильная и вызовет сообщение 
об ошибке, так как С объявлена переменной. Последнюю часть мож¬ 
но выполнить при 

D CHAR (2) DEFINED A POSITION (4) 

б) Y (1), .... Y (50) относится к А (50).А (1) 

в) А (I) представляет і-ю ячейку памяти в массиве В, в том порядке, 
в каком обычно распределяется память, причем первый индекс изме¬ 
няется медленнее остальных; 

г) в данном примере В (0), В (1), ..., В (9) относится к А (0), А (1), 
А (3), А (5); А (9), А (8), А (6), А (7), А (4), А (2); 

д) массив В заполняется 18 элементами массива А, размерность 
которого равна 10. Первая строка массива В состоит из первого и вто¬ 
рого элементов А, вторая строка массива В состоит из второго и тре¬ 
тьего элементов массива А и т. д. 

3. а) 3456.0 

б) Ы234 

в) — 1234 

г) 12/34/56 

д) Ы02ЬЗ 

е) ЬОО123 

ж) ЬЬЫ23 

з) ЬЬЫ23$ 

и) $ 1,234.56 

к) bbb $ 12.34DB 

л) ** 1000 

м) 12ЬЗ 

н) 3400 
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o) 2340 

п) — 12.340 

p) 12.34 

4. а) 1) 14, 2) 1, 3) 4, 4) идентификатора в программе нет, 5) иден¬ 
тификатора в программе нет, 6) идентификатора в программе нет, 7) 1. 

б) О Х-2* TOTAL _ REGORD. FIELD _ GOALS. MADE + TOTAL_RECORD. FOULS. MADE) 

2) TOTAL_REGORD- TOTAL_REGORD+LAST_OAME_RECORDS 

SEASON REGORD - SEASON REGORD+ LAST OAME R E r ORD| 

6. а) вое А и В, но не С; 

б) добавьте префикс (NOCONVERSION) к оператору 
В: BEGIN; 

»/ ^CONVERSION, NOZEROD1VIDE) | A g PROCEDURE) 


JZERODIVIDER Bl BEOIN) 


END B) 


END A) 

(NOZERODIVlDE)i в i PROCEDURE) 


END в) 

г) NOUNDERFLOW применяется только к Z/Y*Z < 3*Y. Эта 
ситуация не применяется к конструкциям THEN или ELSE. 

д) (SIZE): DO WHILE (Х — Y > Z): не выполнимо, так как это 
применимо только к X — Y > Z. Префикс (SIZE) необходимо добав¬ 
лять к двум операторам, следующим за DO. 

е> ON CONVERSION GO ТО «ON; 
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